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FOREWORD 


This investigation was performed for the NASA Manned Spacecraft Center 's 
Structures and Mechanics Division. Dr. Donald M. Curry was the technical monitor, 
and Dr. Kenton D. Whitehead was the project manager. The study was conducted by a 
project team consisting of Dr s. K. T. Shih, A. Gay, and O. Brevig, and Mr. R. C 
Day - Thermodynamics, Messrs. R. S. Wilson, andP. T. Thorndyke - Stress, 

S. T. Hitchcock - Weights, and T. C. Johnson - Costs. Programming and computer 
coordination was performed by Ms. E. R. Neuharth. All work was done at the San 
Diego Operation of the Convair Aerospace division of General Dynamics. Results 
of the study are published in two volumes: the Final Report (Volume I) and the User's 
Manual (Volume H) . 
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SUMMARY 


A study was performed to continue the development of the computational tech- 
niques for the design optimization of thermal protection systems for the space 
shuttle vehicle. The resulting computer program was then used to perform initial 
optimization and sensitivity studies on a typical thermal protection system (TPS) 
to demonstrate its application to the space shuttle TPS design. The program was 
developed in Fortran IV for Convair Aerospace's CDC 6400, but it was subsequently 
converted to the Fortran V language to be used on the MSC Univac 1108. Document- 
ation for the study is reported in two volumes - the Final Report and the User's 
Manual. The latter contains input instructions and sample problems to illustrate 
use of the program. 

The efforts of the investigation involved continued development of theoretical models 
describing performance of the TPS and the progra mm ing of the subsequent method- 
ology. The program itself was effected in a modular fashion to allow continuing up- 
dating of the methods. The logic of the computer code involves subroutines which 
handle the following basic functions: (1) A driver link which establishes communi- 
cation between the overlays of the program, (2) an overlay which handles the 
thermodynamic analysis (including aerodynamic heating and the temperature res- 
ponse of the TPS cover panel and underlying insulation) and the discrete element 
stress analysis of the panel, (3) an overlay which performs the finite element stress 
analysis for the RSI configuration, and (4) a link which predicts the weight and cost 
of the TPS panel and supporting structure. For metallic panels, the system weight 
and manufacturing cost is determined by identifying and evaluating these parameters 
for each of the TPS's component parts. The RSI and ablator systems are evaluated 
as a honeycomb panel with an additional external insulation. In addition, a system 
total cost is predicted based on system weight and historical cost data of similar 
systems. 

Each of the major components of the program described above is complemented by 
other subroutines which provide specialized calculations for the analyses. 

Two basic types of input are provided, both of which are based on trajectory data. 

In the first, vehicle attitude (altitude, velocity, and angles of attack and sideslip) is 
input and external heat and pressure loads are calculated. In the second, heating 
rates and pressure loads are provided to the program as a function of time. Stan- 
dard program output includes heating rates, temperature, and stresses for the 
discrete elements of the TPS analyzed as well as dynamic stresses and the number 
of stress reversals for the panel and its weight and cost. A panel redesign technique 
is included to increase the panel thickness to transfer mechanical loads and to in- 
crease insulation thickness to protect the underlying load-bearing structure. Sub- 
sequent investigations have shown, however, that the most efficient and economical 
method of sizing the TPS is performed by manual iteration by the program user. 

xi 



Preliminary optimization and sensitivity runs have been performed to demon- 
strate the sizing procedure in terms of varying panel size, material properties, 
and configuration. Six different metallic panel cross-section geometries are pro- 
vided along with an ablative system, and reusable surface insulation (RSI), the last 
with or without a phase change material (PCM) embedded in the substrate. 

An optimum design is then identified as the one giving either minimum weight or 
cost as a function of the parameters being varied for the investigation. Sensitivity 
studies are performed by noting the change in system weight or cost due to the 
variation in some independent variable such as trajectory or heating prediction 
method for an optimum panel configuration. 


xii 



SECTION 1 


INTRODU CTION 

This manual describes the computer program P5490 developed for use in opti- 
mizing the design of the thermal protection system for manned spacecraft in terms 
of weight and cost. A brief description is given of the capabilities and limitations 
of the program followed by operation instructions and sample problems. Source 
listings, descriptive paragraphs of all subroutines, and a flow chart of the program 
are given in the appendices. 

The program starts by calling subroutine INPUT1 to read in portions of the data 
necessary to perform the thermal protection system (TPS) sizing. Computations 
are performed for four types of cover panel: (1) metallic, (2) ablator, (3) reusable 
surface insulation (RSI), and (4) a carbon-carbon leading edge. Flat plate, carbon- 
carbon cover panels may also be simulated by simply inputting proper material 
properties while using the metallic cover panel option. For the case of ablative 
and RSI systems, a second input subroutine, INPUT2, is called to read in the 
thermodynamic properties of the cover panel, underlying insulation, backup structure, 
and backface environment. The second input routine was employed to permit use 
of the formats already existing in the charring ablator program which is the back- 
bone of the ablator and RSI analyses. In this manner, the two programs were kept 
consistent. Program control was then returned to INPUT1 to allow input of para- 
meters need to perform stress and acoustic fatigue analyses. 

For a given trajectory, location on the spacecraft, and computational time incre- 
ment, the subroutine THERMO computes local pressure and aerodynamic heating 
rate. The temperature response of the panels and underlying structure are com- 
puted either by subroutine CONDTN (for the metallic and carbon-carbon configur- 
ations) or by subroutine ABLATE for the ablator and RSI. Provisions are also 
made in the latter routine for using either cold or hot wall heat fluxes. Of course, 
all these routines have many auxiliaries which perform subordinate computations. 
Subroutine STRESS performs a discrete element stress analysis on all configurations 
but the carbon-carbon leading edge. For the case of the RSI panels, an additional 
finite element stress analysis is performed by subroutine MAIN at the trajectory 
design point identified by STRESS. (MAIN is the CDC 6400 version of a two- 
dimensional stress analysis initally developed at Convair as the independent com- 
puter program P2354. ) Once the thermodynamic and structural performance of the 
TPS have been assessed, the acoustic fatigue analysis subroutine FATIG computes 
the dynamic response of the system and compares it to the lifetime requirements of 
the vehicle. Next, weight and cost data are read into the computer via the sub- 
routine DRVTPS, and weight of the system is computed by subroutine WTTPS. 
Manufacturing costs of the system are developed from standard hour predictions 
by subroutine COST for a wide variety of materials, and total systems costs for 
a wide variety of materials, and total systems costs (again, per unit area) are 
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determined from subroutine COSTOT. In this, the second version of the TPS sizing 
program, all automatic sizing procedures have been removed from the program. Ex- 
perience gained in running the computer program during its development demonstrated 
that such procedures were both expensive and time consuming when compared with 
those effected by an experienced program user. 

The computer program was developed simultaneously in Fortran IV for the CDC 6400 
and in Fortran V for the Univac 1108 by the Convair Aerospace Division of General 
Dynamics. The complexity of the program required several overlays; the resulting 
system can be run in 130, 100 words octal. 
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SECTION 2 


PROGRAM CAPABILITIES 

The program has been written in modular fashion. This will provide ease of 
modification. The following subsections describe the capabilities and limitations of 
the program. 

2.1 COORDINATE SYSTEMS 

In this program, a rectangular coordinate system was adopted. The plane of symmetry 
of the spacecraft (the pitch plane) is specified as the xz-plane of the coordinate system 
(Figure 2-1) . The location on the spacecraft is described in the program by a charac- 
teristic length which is either the distance from the leading edge to the point of 

interest or the diameter of the 
swept cylinder configuration. 

The local body orientation is 
defined by the effect angle of 
attack 0 which is computed by 
the program as a function of 
body geometry ($ and 0 in Fig. 
2-1) and angle of attack a and. 
sideslip ft , a being measured 
in the x, z plane and ft in the 
x, y plane. 


Two methods are employed to specify the aerothermodynamic environment of the local 
TPS of interest. The first is to input the vehicle trajectory as a function of time (i.e. , 
altitude, velocity, angle of attack, yaw angle). These points are tabulated data and 
the trajectory at a specific time is established by linear interpolation. Freestream 
properties of temperature, pressure, density, speed of sound, and viscosity are 
determined from the 1963 Patrick AFB Atmosphere (subroutine PRA63). The second 
technique is to input the local pressure and heat transfer rate (either steady state or 
as a function of time). This input provision can take two alternative forms, cold or 
hot wall heat fluxes. The cold wall values are input with the RSI or ablator configur- 
ations and can be corrected to hot wall values as a function of computed hot wall 
enthalpy and an input fictional total enthalpy. , 



Figure 2-1. Body Orientation 
2.2 AERODYNAMIC HEATING 
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Prediction of aerodynamic heating is performed by seven different options: (1) 
conical flow field with detached shock at high angle of attack, (2) laminar or turbulent 
swept cylinder, (3) cone, (4) wedge, (5) sphere, (6) laminar cylinder, and (7) 'urbulent 
cylinder. The first option is the technique which will be used most frequently since it 
embodies the techniques recommended by the NASA Thermal Panel for windward sur- 
face heating. At low angles of attack, flow field properties are predicted from a num- 
ber of curve fits developed for real gases, and at high angles at which the shock 
detaches, the real gas flow field properties are determined by a series of calculations 
considering the specified shock wave angle, changes in properties across the shock, 
and expansion to local Newtonian. The equation of state is a curve-fitted Mollier chart 
for equilibrium air. From the known flow field properties, laminar heating rates are 
computed from the Blasius equation evaluated at the Eckert reference enthalpy and 
the Colburn statement of Reynolds analogy. For turbulent flow, two heating prediction 
techniques are available: the first is the Schultz-Grunow equation with the Eckert 
reference enthalpy and Colburn's Reynold analogy, and the second is the Spalding-Chi 
method with the von Karman statement of Reynolds analogy. Transition between 
laminar and turbulent flow is specified by Masek's transition criterion. The end of 
transition region is determined by a value of Reynolds number equal to twice the initial 
value. Transitional heating between the laminar and turbulent boundary layers is 
calculated as a linear interpolation of laminar and turbulent heating values, the degree 
of turbulence depending on the turbulent fraction exhibited by the boundary layer with 
respect to values of Reynolds number for transition onset and end. Cross flow effects 
are also included to modify heating rates for the effects of three dimensionality. For 
the cone and wedge flowfields of options (3) and (4), curve fits predict flow field pro- 
perties for the attached shock flow field. No provision is made for shock detachment. 

The second option of the program, laminar and turbulent swept cylinders, is valid for 
only high angles of attack and is applicable to geometries such as swept leading edges. 
The laminar swept cylinder heating rates are predicted by Fay-Riddell and the tur- 
bulent rates by the Beckwith-Gallagher method. In both techniques, flow field pro- 
perties are computed for real gas shock waves. The transition criterion, suggested 
by the NASA Thermal Panel, starts transition at a freestream Reynolds number based 
on body diameter of 10 5 and ends it at a value of 2 x 10 5 . The computer codes aero- 
heating options of (6) and (7) are simply the laminar and turbulent swept cylinder tech- 
niques independent of boundary layer transition. Spherical heating, is simply the 
method originally posed by Fay and Riddell as applied to a sphere. 

2.3 STRUCTURAL TEMPERATURE RESPONSE 

Two methods are now available for determining the structural temperature re- 
sponse of the TPS. The first, an explicit statement of the energy equation, is used in 
conjunction with the metallic configurations and the carbon-carbon leading edge. The 
second, an implicit solution technique, is used for predicting performance of the 
ablator and RSI structures, the latter with and without an underlying phase change 
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material. The implicit scheme is limited to one-dimensional heat tr ans fer. For 
both heat transfer prediction methods property values for heat conduction analysis 
(density, emissivity, heat capacity, and thermal conductivity) are fed into the pro- 
gram as constants or as functions of temperature. For the ablative and RSI systems, 
the thermal conductivity can be input as a function of both temperature and pressure, 
the latter dependency being especially signifieatnt for the RSI. These points are 
tabulated data, and the properties at a specific temperature are established by linear 
interpolation. 

For the case of the explicit solution, structural temperature response is evaluated 
by either a one- or two-dimensional conduction program with internal radiation. The 
structure is divided into an arbitrary number (maximum of 9 columns x 9 segments) 
of nodes (Figure 2-2). 

The CONDTN subroutine accommodates simulation of radiation heat exchange between 
nodes. There are two general expressions available for calculation of radiation heat 
exchange. The equation 


€. e. a 
i J 


Q ij = l"-(l-e. ) (1-e ) 
i 3 


4 4 

A F (T - T ) 
1 ij j i 
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describes radiation heat exchange, Qjj, between two parallel plates i and j, where 
O is the Boltzmann's constant, € is the emissivity, A is the area, F is the view factor 
and T is the temperature. Equation 2-1 is an approximate form. For rigorous cal- 
culations the "overall interchange factor, " 3. .should be computed and supplied as 
part of the problem input. By substituting 6^-£.=l and F.. = 3 ^ . into equation 2-2 we 
have 1 J 


Q.. = a A. S.. (T 4 - T 4 ) 
13 i 13 J i 
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Figure 2-2. Structure Segmentation 
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The implicit, one-dimensional heat transfer routine is used to predict charring 
ablator performance or the temperature prediction of the RSI either with or without 
a phase change material embedded in the substrate. The RSI is simulated simply by 
suppressing the chemical reaction of the outermost material. The ablator or RSI 
material can have up to ten nodes, and up to 5 backup materials with 4 nodes each 
used to simulate the backup structure. A schematic of the nodal breakdown for the 
implicit routine is shown in Figure 2-3. 

2.4 STRESS ANALYSIS 

The stress analysis (subroutine STRESS) is performed for any of the six simply- 
supported metallic panels (Figure 2-4 and 2-5) and for the RSI system (Figure 2-8). 
Figure 2-4 gives overall geometrical dimensions for the panel, and geometries for 
individual panel configurations are given in Figure 2-5. The loadings considered are 
bending due to aerodynamic pressure and the internal forces induced by temperature 
gradients within the panel cross section. 

The panels are segmented for the stress analysis; Figure 2-6 shows the panel segmen 
tation together with the conduction matrices and Figure 2-7 gives the segmentation 
for the RSI system. It is essential that the conduction input obeys the matrix given in 
these figures. 

The following property values of panel material are needed for stress analysis; they 
are input as tabulated data. 

a. Young's modulus vs. temperature. 

b. Coefficient of thermal expansion vs. temperature. 

c. Yield strength vs. temperature. 

d. Ultimate tensile strength vs. temperature. 

e. Larson-Miller parameter for strain 1 vs. stress. 

f. Larson-Miller parameter for strain 2 vs. stress. 

g. Ultimate compressive strength. 

h. Ultimate shear strength. 

i. Shear modulus. 


2-4 




ORIGINAL 

MATERIAL SURFACE 



S 


i * NP , j = 1 


j * NP + NPBS 
j = XBM 


Figure 2-3 - Schematic diagram of charring ablator thermal protection system. 
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Figure 2-4. Panel Overall Geometry 
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Figure 2-5. Panel Geometries 
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Figure 2-6. Configurations for Stress Analysis 
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NOTE: The honeycomb substrate 
is analyzed as a slab of 
equivalent properties. It 
is bonded to the RSI with 
a simple adhesive 


Figure 2-7. Discrete Element 
Stress Analysis Nodal 
Schematic 
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2. 5 ACOUSTIC FATIGUE AND PANEL FLUTTER 

The acoustic fatigue analysis (subroutine FATIG) computes the fundamental frequency 
of each of four different panel configurations (Figure 2-8). Noise computations are 
performed for each of four different sources (turbulent boundary layer, boost engines, 
jet flyback engine, or scrubbing by the exhaust of the jet flyback engines). Each sound 
pressure level is a function of local geometry (e. g. , the distance between the source 
and the point of interest for the case if engine induced noise, or the run length dis- 
tance for the turbulent boundary layer, Figure 2-9). The panel moment of inertia may 
be computed in either of two ways. In the first case, the moment of inertia may be 
input as part of the standard format. However, if this value is input as zero, the 
value will be computed for the metallic configuration* or for the honeycomb substrate 
used in conjunction with the RSI and the ablator. Dynamic stresses are computed for 
each sound pressure level; these are adjusted to account for a dynamic magnification 
factor due to resonance and for a local stress raiser due to edge conditions. Critical 
stress levels for each noise source are determined by equating the randomly applied 
excitation energy to the allowed levels of stress as a function of number of stress 
reversals determined by test. (The latter information is calculated external to the 
program from data of the final report and is input as a third-degree least-squares 
curve fit of stress in kips per square inch as a function of stress reversals. ) The 
composite critical stress is determined as the square root of the sum of the squares, 
and the corresponding equivalent number of stress reversals is determined by equating 
the total energy absorbed by the system at the composite critical stress to the sum of 
all the energies absorbed by the application of random noises due to each of the four 
possible noise sources. The resulting critical stress and number of stress reversals 
are compared to the allowable values to see if they have been exceeded. 

2.6 WEIGHT AND COST ANALYSIS 

The weight and cost analysis predicts unit area weight and cost for six different 
metallic panel configurations and both ablative and RSI systems attached to a honey- 
comb panel. Three different concepts of heat post supports (Figure 2-10) are also 
considered. The type of panel and support structure are input to the program by 
appropriate option parameters along with the panel and supporting structure geometry 
(Figures 2-11 through 2-15). The total system weight per panel is computed as the 
summation of weights of the various components, and weight per unit area is deter- 
mined by dividing panel weight by panel area. Costs per unit area are determined 
by calculating the material and manufacturing processes for each panel configuration 
and then dividing by panel size. Each individual cost is calculated by identifying the 
type of material purchased, the form in which it is purchased, and the operations 
needed to manufacture" the part (clamping, drilling, inspecting, etc.) as well as the 
manhours required for supporting activities (sustaining engineering, tooling, and the 
like). At the present time these data are stored within the computer program as 
tabulated values. 
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Figure 2-10. Schematic of Supporting Structures 


Costs are computed by two different techniques. The first predicts the costs of man- 
ufacturing the TPS per unit area and includes materials and manufacturing costs. 

This is performed by summing the manufacturing costs of the systems individual 
component parts. Materials considered along with their complexity factors are given 
in Table 2-1 . 

The program total cost prediction techniques are based on methodologies developed 
for the space shuttle booster and orbiter as well as other cost models of the aerospace 
industry. All costs are based on a TPS area of 10000 square feet and then normalized 
to unit area. The total cost model is outlined in Table 2-2, and the embedded constants 
of the routine are given in Table 2-3. The user may override the embedded values, 
however, simply by supplying the proper input values to subroutine DRTPS. (See the 
next chapter for details.) 
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Figure 2-11. Panel Nomenclature for Weights/Cost 
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Figure 2-12. Cruciform and Support Post Assembly (Concept A) 
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Figure 2-13. Cruciform and Support Beams (Concept A) 



Figure 2-14. Sheet Metal Standoff Post (Concept B) 
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2-15 


Table 2-1. Material Types and Complexity Factors 


Material 

MAT LID 

Material Complexity Factor 

Aluminum 

1 

1.0 

Titanium 

2 

4.2 

Inconel 71 8 

3 

4.2 

Hastelloy X 

4 

4.0 

Rene 41 

5 

4.2 

TD Nicrome 

6 

5.0 

Columbium C-6752 

7 

6.0 

Columbium C-129Y 

8 

6.0 

Haynes 188 

9 

4.2 

Tantalum 

10 

6.0 

Alloy Steel 

11 

3.8 

Stainless Steel 

12 

4.2 

Magnesium 

13 

4. 0 

Beryllium 

14 

5.0 

L-605 

15 

4.2 
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Table 2-2. Total Cost Model 


Theoretical first unit cost (TFU) 

AT 

TFU = CF 1 K x (W) 

Engineering Design and Developments Costs (EDD) " 

EDD - K 2 (W) BT 
Tooling Costs (TOOL) 

TOOL = K 3 (W) CT 
Hardware requirements 

Ground test hardware (GTH) 

GTH = EGH TFU 
Flight test articles (FTA) 

FTA = FTH TFU 

Flight test spares and replenishment parts (FTSRP) '' 
FTSRP = FTS TFU 


non-recurring 
costs - 


Production articles (PA) 

PA = NPA TFU 
Test article conversion (TAC) 
TAC = ETA TFU 


also 

Sustaining Engineering 
Tooling 


in TFU 


recurring 

production 


The total program cost (TJ?C) is obtained by a summation of non-recurring 
DDT&E(NR), recurring production (RP), and recurring operations (RO) costs. 
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Table 2-3. Values of Total Cost Constants 


AT 

BT 

CT 

K1 

K2 

K3 

EGTH 

FTH 

FTS 

NPA 

ETA 

OS 

STPS 


.667 
.187 
0. 86 
.00171 
6.58 
. 004324 
3.75 

2.0 

.67 

1.0 
0.3 
1.332 

22, 000 
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SECTION 3 


PROGRAM OPERATION INSTRUCTIONS 


This section presents the information required for effective use of the program. The 
instructions for correct program input are given in Section 3. 1, a description of the 
program output is given in Section 3.2, and error statements are shown in Section 3.3. 

3.1 INPUT 

The input system has been designed to allow multiple cases with the complete input 
data deck consisting of input packages for each case. The first case generally requires 
specification of all necessary parameters whereas, in' subsequent cases, a namelist 
DATANU can be used to make changes of parameters. A complete input package is 
composed of 30 records; a record is simply a convenient gathering of similar terms 
or groups of terms. The input Symbols are defined in Table 3-1, and the format 
records are given in Table 3-2 and illustrated in Figure 3-1. 

The formats of data input are of the form nEw.o. Thus, a decimal point may appear 
anywhere in the field. However, if the exponential notation E xx is used, it must be 
right-hand justified. Any field may be left blank. The blank is interpreted as a 0 
(integer) or 0.0 (floating point). 

The definitions of the input symbols are given in Table 3-1. 

Data for the weights and cost analyses are also read in using conventional formats, but 
they are read into the subroutine DRVTPS. Results of this analysis are output from 
this portion of the program also. The weights/cost input variables are indicated also 
in Table 3-1 starting with record 52. 

3.2 OUTPUT 

The program output consists of three distinct sections. They are illustrated in Section 
4. The first includes the case identification and printout of the input data. The last 
line of print is the phase END OF INPUT. This section of the output is accomplished by 
the subroutine INPUT1. 

The second section of the output consists of results. Numerical values are printed on 
the line below each heading. Output symbols are defined in Table 3-3. 

The third section of the output is the debug results output. This section presents the 
values of parameters which are not normally required but which may be helpful in 
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tracking down the source of errors. This is especially helpful when a new subroutine 
is added or an existing subroutine is modified. The debug output is not printed unless 
it is specially requested by means of input a 1 of NPRT in the input data. 


3.3 ERROR STATEMENTS 

a. ALTITUDE LT 0 OR GT 700000 FT - Trajectory corresponds to an altitude out of 
range of PRA63 subroutine. 

b. LOCAL VELOCITY SQUARE IS NEGATIVE - This comment is printed when a 
calculated local velocity square becomes negative in subroutine THERMO. 

c. ERROR IN OBSPL COMPUTATION - Function Curve F out of range. 

d. SEGMENT NUMBER IJ TEMPERATURE CHANGE IS GREATER THAN 500 DEG - 
Conduction solution is unstable; however, the program normally readjusts the 
computation true interval. The computation will be stopped for a readjusted 
true interval less than 0.1 sec (subroutine CONDTN). 

e. NO. OF TITLE CARD IS GREATER THAN 10 - Subroutine INPUT1 limits title 
cards to 10. 

f. NO. OF TRAJECTORY IS GREATER THAN 99 - Subroutine INPUT1 limits 
trajectory cards to 99. 

g. OX ARGUMENT ERROR IN TABLE - Error in Function Table. 
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Table 3-1. Input Symbols 


Record 

Variable 

Type.. 

Symbol 

1 

Alpha- 

numeric 

TITLE 

1 

Integer 

JI 

2 

Integer 

ICONF 


IQ CON 


IQINP 

ITURB 
I WALT 
NANG 
NCOLM 

v NSEG 
2 Integer NMAT 


Definition 

Case identification and comments, maximum 10 cards. 


Indicator marking the last title card which specifies 
the input data form, input a non-zero value. 

Specifies body configuration, input a 1 through 7. 

1. Conical flowfield with detached shock 

2. Laminar and turbulent swept cylinders 

3. Cone 

4. Wedge 

5. Sphere 

6. Laminar cylinder 

7. Turbulent cylinder 

Specifies variation of input heat transfer multipliers, 
laminar and turbulent input a 1, 2, or 3 

1. QCONL(I) = QCONT(I) = 1 (no input required) 

2. Input QCONL(I). QCONT(I) = QCONL(I) 

3. Input both QCONL(I) and QCONT(I) 

Specifies variation of trajectory cards, input a 1,2, or 4 

1. Input trajectory 

2. Input local hot wall heat flux and pressure 

4. Input local cold wall heat flux and pressure 

Specifies turbulent prediction method, input a 1 or 2 

1. Eckert reference enthalpy 

2. Spalding- Chi 

Specifies conditions of wall temperature, input a 1 or 2 

1 . Uniform 

2 . Nonuniform 

Specified variation of input angle of attack, input a 1 or 2 

1. a, /3 are function of trajectory 

2. a = ALPHA(l), 0 = BETA(l) 

Number of Columns s 9 
1. One-dimensional heat conduction 
2-9. Two-dimensional heat conditions 

Number of segments ^ 9 

Number of materials £ 9 
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Record 


Table 3-1. Input Symbols (Continued) 

Variable 

Type Symbol Definition 


2 


a 


♦ 

2 


Integer NRSG One-dimensional case (NCOLM=l) number of internal 
radiation gaps 

Two-dimensional case (NCOLM>l) number of internal 
radiation segments, for segments which have more than 
one face radiation interchange, count each face as one 

- - - .. segment. £ 18 .. . _ 

NCRC Specifies coordinate systems used for conduction analysis, 
input a 1 

NSECT Panel configurations (see Figure 2-5) input a 1, 2, 3, 4, 

5, 6 or (see Figure 2-7) 7, 8 or 9 

1. Convair trapezodial 

2. Flat corrugation with skin 

3. Rib stiffened panel 

4. Skin stringer 

5. Open corrugation 

6. Circular arc corrugation 

7. Reusable surface insulation (RSI) 

8 . Ablator 

9. Carbon -carbon leading edge 

NINS Specifies input material number of the insulation (limited to 
one material) to be sized. If insulation sizing option is not 
used, leave blank. 

NF Number of flights. 

NPRT Specifies output form, input a 1 if 'long" print out option 
is used. Leave blank for "short" print out 

ISTRES Specifies whether or not to conduct stress analysis, input 
0 or 1 

0, Omit stress analysis 

1. Call stress analysis 


IFATIG Specifies whether or not to conduct fatigue analysis, input 
0 or 1 

0. Omit fatigue analysis 

1. Call fatigue analysis 


i lWTCST Specifies whether or not to conduct weight/cost analysis, 
input 0 or 1 

0. Omit weight/cost analysis 
Integer 1. Call weight/cost analysis 
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Table 3-1. Input Symbols (Continued) 


Variable 
Record Type 

2 Integer 


2 Integer 

3 Real 


3 Real 

4 Real 


4 

5 


* 

Real 

Real 


5 Real 


Symbol 

IEQOS 

ITRAS 

THETA 

PHI 

XDST 

DIAM 

AROD 

XEMIS 

FACC 

STAAT 

DELTA 

WROTE 

STOOP 

AS 

R 

HH 

TS 

TF 

TC 

SL 

SLS 

BE 


6 Real 

1 I 


F07 

UF 

DST 


Definition 

Specifies equation of state, input 1 or 2 

1 . Real gas 

2. Perfect gas 

Specifies location of virtual origin, input 1 or 2 

1 . Leading edge 

2 . Beginning of transition 

Direction angles 
(see Figure 2-1) 

Distance from the leading edge, ft 

Diameter of a sphere or cylinder,- ft 

Ratio of shoulder radius to body diameter 

Outer surface emissivity 

Factor to increase insulation thickness 

Time to start computation, sec 

Computation interval, sec 

Print interval, sec 

Time to stop computation, sec 

Pitch of corrugation or ribs, inches (see Figure 2-5) 

Radius of corrugations, inches (see Figure 2-5) 

Depth of section, inches (see Figure 2-5) 

Skin thickness, inches (see Figure 2-5) or facesheet 
thickness of honeycomb substrate (see Figure 2-7) 

Corrugation thickness, inches (see Figure 2-5) 

Overall width of panel, inches (see Figure 2-4) 

Overall length of panel, inches (see Figure 2-4) 

Distance of reaction from panel edge, inches (see 
Figure 2-5) 

Secant yield stress Fq, 7 (Ramberg-Osgood) lb/in 2 (Ref 2) 
Ultimate factor 

Difference between two values of creep strain used for 
Lawson-Miller data, inches/inches 
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Table 3-1. Input Symbols (Continued) 

Definition 

Allowable creep strain, inches/inches 

Shape parameter for stress strain curve (Ramberg-Osgood) 
(Ref. 2 ) 

Width of flange or flat segment (Conf . 2) inches (see 
Figure 2-6 ) or bond thickness in RSI (see Figure 2-7) 

Width of inner flange (Conf. 4) in. (see Figure 2-6 ) or 
Thickness of RSI (see Figure 2-7) 

Width of lip on inner flange (Conf. 4) in. (see Figure 2-6 ) 
or RSI coating thickness (see Figure 2-7) 

Exponent of Arhennius equation describing pyrolysis gas 
generation 

Coefficient of Arhennius equation describing pyrolysis 
gas generation 

Activation temperature of Arhennius equation describing 
pryolysis gas generation 

Specific heat of pyrolysis gas, Btu/lb 

Molecular weight of char 

Molecular weight of pyrolysis gas 

Tide card to ablation input 

Temperature at which ablator starts, “R 
Temperature at which ablator stops, °R 
Temperature at which char removal starts, °R 
Density of virgin ablation material, lb/ft^ 

Density of charred ablation material, lb/ft^ 

Time of transition between laminar and turbulent blowing 

Emissivity of virgin ablation material 

Emissivity of charred ablation material 

Enthalpy of air at 300K, 129. 06 Btu/lbm 

Initial thickness of virgin ablation material, inches 
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Table 3-1. Input Symbols (Continued) 


Variable 

Record Type Symbol 


Definition 


9 

Real 

HV 

Heat of degradation of virgin material, Btu/lbm 




FV 

View factor for external environment 




TV 

Sink temperature of external environment, °R 




CHARK 

Thermal conductivity of material at TCHAR, Btu/ft-hr- 0 




CHARC 

Specific heat of material at TCHAR, Btu/lbm-°R 

▼ 


f 

ABLK 

Thermal conductivity of material at TABL, Btu/ft-hr-°R 

9 

Real 

ABLC 

Specific heat of material at TABL, Btu/lbm- °R 

10 

Integer 

NP 

Number of node points in ablation material 




NKC 

Number of points in char thermal conductivity - tempera- 
ture table 




NCPC 

Number of points in char specific heat - temperature 
table 




NKV 

Number of points in virgin thermal conductivity - 
temperature table. If zero, program reads record 13B 
instead of Record 13A. 




NCPV 

Number of points in virgin specific heat - temperature 
table 


1 

f 

NREC 

Number of points in surface recession - temperature 
table 

10 

Integer 

IBLCK 

Specifies use of heating reduction due to blowing, input 
O or 1. 

t ; ; 





0. No blowing heat transfer reduction 

1. Heat transfer reduction due to blowing 

11 

Real 

TKC(I) 

Temperature values in char thermal conductivity - 
temperature table, °R 

11 

Real 

XKC(I) 

Thermal conductivity values in char thermal conductivity 
- temperature table, Btu/ft-hr-°R 

12 

Real 

TCPC(I) 

Temperature values in char specific heat - temperature 
table, °R 

12 

Real 

CPC(I) 

Specific heat values in char specific heat - temperature 


table, Btu/lbm- °R 
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Record 

13A 

13A 

13B 


13B 

14 

14 

15 

15 

16 

1 

16A 

16B 

I 


Variable 


Type 

Symbol 

Real 

TKV(I) 

Real 

XKV(I) 

Integer 

NTKV 

Integer 

NPKV 

Real 

I 

PKV(J) 

1 

r 

TKV(I) 

Real 

XKV(I,J) 

Real 

TCPV(I) 



CPV(I) 

1 

r 

TS(I) 

Real 

SR (I) 

Integer 

NMB 

Integer 

NPBS 

Real 

BL 

Integer 

NIFPCM 

Integer 

NPC 

Integer 

NFIL 


Table 3-1. Input Symbols (Continued) 


Definition 


Temperature values in virgin thermal conductivity - 
temperature table, °R 

Thermal conductivity values in virgin thermal con- 
ductivity - temperature table, Btu/ft-hr-°R 

Number of points in virgin thermal conductivity - 
temperature table 

Number of different pressures in virgin thermal - 
conductivity table 

Values of pressure in virgin thermal conductivity - 
temperature table, psf 

Temperature values in virgin thermal conductivity - 
temperature table, °R 

Pressure dependent thermal conductivity values in 
virgin thermal conductivity - temperature table, 
Btu/ft-hr-°R 

Temperature values in virgin specific heat - temperature 
table, °R 

Specific heat values in virgin specific heat temperature 
table, Btu/lbm-°R 

Temperature values in the surface recession table, °R 

Surface recession values in the surface recession - 
temperature or time table, in. /sec 

Number of materials in backup structure 

Total number of node points in backup structure 

Total thickness of backup structure, in. 

Specifies whether PCM is to be used or not, input 0 or 1 

0. No PCM 

1. PCM used 

Material number for phase - change material (PCM) in 
backup structure 

Test to determine if filler material (honeycomb material) 
is used in PCM 
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Table 3-1. Input Symbols (Continued) 


Variable 


Record 

Type 

Symbol 

Definition 

16B 

Real 

TMELT 

Melting temperature of PCM or temperature at which 



1 



solid-solid transition takes place ~°R 





HFUS 

Latent heat of fusion of PCM or heat of transition for 
solid-solid transition ~Btu/lb 

1 

f 

1 

r 

RH0FIL 

O 

Density of filler (honeycomb) material ~ lb/ft 

16B 

Real 

FIFR 

Filler (honeycomb material) fraction in PCM 

17 

Real 

XNPM(I) 

Number of nodes in each individual material in backup 






structure 

18 

Integer 

NKPB(I) 

Number of points in each individual backup structure 






material thermal conductivity - temperature table 

18 

Integer 

NCPB(I) 

Number of points in each individual backup structure 






material specific heat - temperature table 

19 

Alpha- 

XIDNT(I) 

Any 72 alphanumeric characterers used to describe 



numeric 


each individual material in the backup structure 

20 

Real 

TXK(J, I) 

Temperature values in backup material thermal con- 






ductivity - temperature table, °R 

20 , 

Real 

XK(J, I) 

Thermal conductivity values in backup material thermal 






conductivity - temperature table, Btu/ft-hr-°R 

21 

Real 

TCP(J,I) 

Temperature values in backup material specific heat — 






temperature tables, °R 





CPX(J, I) 

Specific heat values in backup material specific heat — 


f 

1 

r 


temperature tables, Btu/lbm-°R 

22 

Real 

RH0BX(I) 

Density of individual materials in backup, lb/ft 3 





XBM(I) 

Thickness of individual materials in backup, in. 





EMFB(I) 

Emissivity of front surface of each material in backup 


f 


f 

EMBB(I) 

Emissivity of back surface of each material in backup 

23 

Real 

H(I) 

Film coefficient between adjacent materials in backup, 






Btu/ft 2 -hr-°R 





GAPX(I) 

Width of gap between adjacent materials in backup, in. 





FTEST(I) 

Test to determine the mode of heat transfer between 


¥ 


r 

BTEST(I) 

materials for the front and backface of each material 
respectively 
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Table 3-1. Input Symbols (Continued) 


28 Real TEMDI 

29 Integer NHP 

30 Real HX(I) 

TW(I) 

31 Integer IPRINT 



Definition 

Conduction only between materials 
Convective heat transfer only 

Radiation only or radiation and convection heat transfer 

Any 72 alphanumeric characters used to describe 
properties of the environment 

Temperature of interior cabin environment, °R 

Film coefficient to interior cabin environment, 
Btu/ft 2 -hr-° R 

View factor and emissivity product for radiative heat 
transfer to cabin interior 

Boundary condition between last node of the backup 
structure and cabin environment 

Adiabatic surfaces 

Radiation and/or convective loss 

Any 72 alphanumeric characters used to describe the 
initial temperature distribution 

Determines the proper heat shield initial temperature 
distribution 

Constant, uniform initial temperature distribution 

Arbitrary initial temperature distribution 

Temperature to be used when constant temperature 
distribution option is used, °R 

Arbitrary temperature distribution values, to be used 
only if TEST2 is negative, °R 

Number of points in enthalpy — temperature curve fit 

Enthalpy values in enthalpy — temperature table, 
Btu/lbm 

Corresponding temperature values in enthalpy — tem- 
perature table, °R 

Specifies output form of RSI stress analysis, input a 
1 if "long" print out option is used. Leave blank for 
"short " print out 
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Table 3-1. Input Symbols (Continued) 


Variable 

Record Type Symbol Definition 


31 

Integer 

NC 

Number of constraints, NC = 8 




NH 

Number of vertical bars, 16 £ NH s 40 




PZ 

Axial load lb/in 

T 


t 

VB 

Poisson's ratio for bond 

32 

Real 

TALLW(I) 

Allowable temperature of the material, °R 

33 

Real 

EMIS(I) 

Emissivity of the material 

34 

Real 

RHO(I) 

Density of the material, lb/ft 

35 

Integer 

ID(I,J) 

Specifies input of material property tables input a 1 or 


2 or leave blank to skip input 

1. Read AY only (AX same as before) 

2. Read both AX and AY 


4 

Integer 

MPT(I, J) 

Number of pairs or points 

36 

Real 

AX(I,J,K) 

Independent variable 

37 

Real 

AY(I,J,K) 

Dependent variable 


1=1, 2, NMAT 
J = 1. Heat capacity (C^) 

2. Thermal conductivity (k) 

3. Young' s modulus (E) 

4. Coefficient of thermal expansion (a) 

5. Yield strength (F ) 

6. Ultimate tensile strength (F ) 

7. Larson Miller parameter for strain 1 (E^) 

8. Larson Miller parameter for strain 2 (E ) 

Ct 

9. Ultimate compressive strength (F ) 

cu 

10. Ultimate shear strength (F ) 

11. Shear modulus (G) 


38 


Real 


X(I) 


K = 1, 2 ..., MPT(I, J) 
Width of the Ith Column, ft 
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Table 3-1. Input Symbols (Continued) 


Variable 


Record 

Type 

Symbol 

Definition 

39 

Real 

QCONL(I) 

Laminar heat transfer multiplier of the Ith column, 
omit if IQCON=l or NCOLM=l 

40 

Real 

QCONT(I) 

Turbulent heat transfer multiplier for the Ith column, 
omit if IQ CON /3 or NCOLM=l 

41 

Real 

Y(J) 

Thickness of the Jth segment, ft 

42 

Integer 

MAT(I, J) 

Specifies materials of column I, segment J 


A zero denotes a void 


43 


1-9, material number negative. The segment will be 
grouped together with the right-hand side segment for 
condition computations 


Real TAMP(I, J) 

i 

Integer NR(N) 


NI(N) 


Specifies initial temperature of column I, segment J, °R 

Omit record 18 if NCOLM=l or NRSG=0 

Specifies nodes with internal radiation exchange 

Example: 18 means column 1, segment 8 

For segments which have more than one side have 
radiation exchange, treat each side as a segment in the 
order of left-right -upper-lower 

Number of nodes to be interacted with node 
NR(N), 4 9 


44 


MR(M, N) 

Real 

Integer IPFI 


Specifies nodes to interchange with node NR(N) 

VFACT(M,N) View factors or 5 with EMIS(I) = 1 

i] 

Number of noise sources to be considered 

1. Turbulent boundary layer 

2. Rocket engine 

3. Jet engine 

4. Jet engine scrubbing 

IPF(I) Identifies by number the noise sources 

IPAD Specified if vehicle is on the pad 

Zero - not on pad 
Non-zero - on pad 
KFLEX Flexural rigidity index 

0. if structure symmetrical, rigid 

1 . if unsymmetrical and/ or flexible 
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Table 3-1. Input Symbols (Continued) 


Variable 

Record Type Symbol 
44 Integer NPAN 


45 Real 


* i 

46 Real 


DT (1) 

XL 

REY 

VU 

QL 

AMACH 

DT (2 ) 

TT 

WER 

D 

VS 

XI 


DVEH 

YCL 


DREF 


47 



▼ 

Real DT(3) 
AE 
VJ 
WE J 
W 
TJ 

| XJ 


Definition 

Panel configuration index 

1. flat plate 2. honeycomb sandwich 

3 . integrally stiffened 4 . corrugated 

Period of turbulent boundary layer noise excitation, sec 

Run length of turbulent boundary layer, feet 

Local Reynolds number 

Local velocity, ft/sec 

Local dynamic pressure, psi 

Local Mach number 

Period of rocket engine noise excitation, sec 

Rocket engine thrust, lb 

Rocket engine weight flow, lb/sec 

Rocket nozzle exit diameter, ft 

Rocket exhaust velocity, ft/sec 

Distance between point of interest and rocket engine 
exit, ft 

Vehicle diameter, ft 

Buttline distance between panel and vehicle centerline, 
ft 

Reference distance between noise source on pad and 
rocket engine exhaust plane, ft 

Period of jet (flyback) engine noise excitation, sec 

Nozzle exit area, ft 

Jet velocity, ft/sec 

Jet engine weight flow, lb/sec 

Vehicle velocity at flyback cruise, ft/sec 

Jet engine thrust, lb 

Axial distance from point of interest to jet engine exit 
nozzle, ft 
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Table 3-1. Input Symbols (Continued) 


Variable 

Record Type Symbol 
47 Real YP 



DT(4) 

HPAN 

HC 

AI 

AIY 

AW 

BW 

EP 

C(I) 

RHOP 

TIME(I) 

ALT(I) 


VINF(I) 

ALPHA(I) 
BETA (I) 
HINSD(I) 

TINSD(I) 

NREADT 


Definition 

Radial distance from point of interest to jet engine 
nozzle, ft (less than 200 ft) 

Period of jet (flyback) engine scrubbing noise excitation, 
sec 

Panel thickness, inches 

Core thickness, inches (for honeycomb sandwich) 

Panel moment of inertia, in^ 

Panel moment of inertia, in^ (for normal direction of 
corrugated panel) 

Panel length, ft 

Panel width, ft 

Modulus of elasticity for panel, psi 

Coefficients of a least squares, 3rd order curve fit of 
allowable S-N data 

Panel material density, lb /ft' 5 

Time in trajectory, sec, I ^ 99 

IQINP=1. Altitude, ft 

2. Local heat flux, Btu/ft^-sec °R 

3. Temperature of first segments °R 

Note: QCONL(I) may be used to obtain a distribution 
of Q(I) or TEMP (1, 1) 

If IQINP=1, free stream velocity, ft/sec 
If IQINP=2, 3 local pressure psia 

Angle of attack, degrees (velocity for IQINP=4) 

Yaw angle, degrees 

Convection heat transfer coefficient to internal fluid. 
Btu/ft 2 -sec °R. (Input 1. E9 to keep last row of 
segments at the initial temperature) 

Bulk temperature of internal fluid, °R 

Non-zero indicator marking the last trajectory card 
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Table 3-1. Input Symbols (Continued) 


Variable 

Record Type Symbol 


De fi nition 


52 


V - 

53 


♦ 

54 


1 


54 " 


Integer KINDP 


Integer KINDS 


LENGTH 

WIDTH 

DLPANL 

DWPANL 

A 

v B 

Integer MATLID 
I COS 

▼ 

Real PIN SI 

PINS2 
PIN S3 
TINS1 
TINS2 
TIN S3 

▼ 

Integer NRIBS 
Real CHORD 
Real RADIUS 
Real GIN SR T 

Real TCORE 
Real TEDGE 


Specifies panel configuration, input a 1, 2, 3, 4, or 5 ■- 

1. Corrugated (either open or closed) 

2. Integrally stiffened 

3 . Honeycomb 

4. RSI 

5 . Ablator 

Specific supporting structure configuration, input a 1, 

2, or 3 

1 . Configuration type A 

2. Configuration type B 

3. Configuration type C 

Panel length, inches 

Panel width, inches 

Panel length overlap, inches 

Panel width overlap, inches 

Distance between adjacent panels, inches 

Air space gap between panel and insulation, inches 

Material identification number (see Table 2-1) for 
metallic panel or substrate. 

Specifies input of total cost data, input 0 or 1 

0. No additional data required 

1. Additional data input at end of weight/cost input 

Density of insulation type 1 

Density of insulation type 2 

Density of insulation type 3 

Thickness of insulation type 1 

Thickness of insulation type 2 

Thickness of insulation type 3 

Number of corrugations across panel width 

Corrugation chord length, inches 

Corrugation radius, inches 

Weight of honeycomb inserts, lb/100 inserts 

Thickness of panel honeycomb core, in. 

Thickness of panel edge piece, in. 
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Table 3-1. Input Symbols (Continued) 


Variable 

Record Type Symbol 
54 3 Integer NRIBS 


Real 

Real 

Real 

Real 

Real 

Real 

Real 

, r Real 

54 4 ) Real 
54® / , 


* 

55 1 Real 


55 1 Real 


HRIB 

TEDGE 

E1RIB 

E2RIB 

E3RIB 

T1RIB 

T2RIB 

TWRIB 

GINSRT 

TCORE 

TEDGE 

TEXT 

PEXT 

GBOLT 

GNUTPL 

GWASH 

TCORN 

TPOST 

ODPOST 

LTUBE 

TTUBE 

TFNG1 

TBMLA 

TBMSA 

TDOUBC 

TDOUBP 

TPLATE 


Definition 

Number of panel ribs 
Height of panel rib, inches 
Thickness of panel edge piece, inches 
Width of panel rib, outside leg, inches 
Width of panel rib, base leg, inches 
Width of panel rib, inside leg, inches 
Thickness of panel rib, outside leg, inches 
Thickness of panel rib, base leg, inches 
Thickness of panel rib, web, inches 
Weight of honeycomb inserts, lb/100 inserts 
Thickness of panel honeycomb core, inches 
Thickness of panel edge piece, inches 
Thickness of RSI or ablator, inches 
Density of RSI or ablator, lb/in 3 
Weight of bolts, lb/100 bolts 
Weight of nutplates, lb/100 nutplates 
Weight of washers, lb/100 washers 
Thickness of corner piece, inches 
Thickness of wall of corner post, inches 
Outside diameter of corner post, inches 
Length of support tube, inches 
Thickness of wall of support tube, inches 
Thickness of support tube flange, inches 
Thickness of long beam, A, inches 
Thickness of short beam, A, inches 
Thickness of long beam doubler channel, inches 
Thickness of corner doubler plate, inches 
Thickness of corner plates 
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Table 3-1. Input Symbols (Continued) 


Variable 

Record Type Symbol 
55^ Real TSEAL 
HBEAMA 
WBEAMA 



55 2 Real 



GBOLT 

GNU TP L 

GWASH 

GINSUL 

TPOST 

WPOST 

GBOLT 

GNU TP L 

GWASH 

G CLAMP 

TPOST 

ODPOST 

ODPOSR 

TTUBE 

TFNG1 

TBMLC 

TBMSC 

WBMLC 

WBMSC 

TRIBL 

TRIBS 

WRIBL 

WRIBS 

HRING 

ODRING 


Definition 

Thickness of seal strip, inches 

Height of long and short beams A , inches 

Width of long and short beam A, inches 

Weight of bolts, lb/100 bolts 

Weight of nutplates, lb/100 nutplates 

Weight of washers, lb/100 washers 

Weight of insulators, lb/100 insulators 

Thickness of wall of corner post, inches 

Width of post B, inches 

Weight of bolts, IbAOO bolts 

Weight of nutplates, lb/100 nutplates 

Weight of washers, lb/100 washers 

Weight of clamping washers, lb/100 washers 

Thickness of wall of corner post 

Outside diameter of corner post, inches 

Outside diameter of center post, inches 

Thickness of wall of support tube, inches 

Thickness of support tube flange, inches 

Thickness of long beam C, inches 

Thickness of short beam C, inches 

Width of long beam C, inches 

Width of short beam C, inches 

Thickness of long rib C, inches 

Thickness of short rib C, inches 

Width of long rib C, inches 

Width of short rib C, inches 

Height of the post of internal ring, center post C, inches 

Outside diameter of beam support ring, corner post C, 
inches 
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Table 3-1. Input Symbols (Continued 


Variable 
Record Type 


55 3 Real 


♦ ♦ 

56 Real 


♦ ♦ 

57 Real 


♦ i 

57 Real 


Symbol 
IDFNG1 
IDFNG2 
HFNG1 
HFNG2 
TRING1 
TRING2 
AT 
BT 
CT 
CF1 
EGTH 
ETA 
FTH 
FTS 
K1 
K2 
K3 
NPA 
OS 

STPS 


Definitioa 

Outside diameter of support tube, corner post C, inches 
Outside diameter of support tube, center post C, inches 
Height of support tube flange, corner post C, inches 
Height of support tube flange, center post C, inches 
Thickness of post support ring, corner post C, inches 
Thickness of post support ring, center post C, inches 
Exponent of TFU costs 

Exponent of engineering design and development costs 

Exponent of tooling costs 

Complexity factor of TFU costs 

Ground test hardware shipsets 

Test article conversion shipsets 

Flight test article shipsets 

Flight test spares and replenishment parts shipsets 
Coefficient of TFU costs 

Coefficient of engineering design and development costs 

Coefficient of cooling costs 

Production article shipsets 

Recurring operations shipsets (refurbishment) 

Surface area of the TPS 


NOTE: In Tables 3-1 and 3-2, the superscripts on record 54 denote values of the 

panel index KINDP whereas those on record 55 show values of the structural 
index KINDS. 
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Figure 3-1. Sample Chart for Standard Input Formats of Program P5490B 
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k. 


Figure 3-1. Sample Chart for Standard Input Formats of Program P5490B (Continued) 











Table 3-2. Input Records Format 


Record 

Data 

I, J, K Range 

Format 

1. 

JI, TITLE 


I1.13A6 

2. 

ICONF , IQCON, IQINP, ITURB , IWALT , 
NANG, NCOLM, NSEG, NMAT, NRSG, - 
NCRC , NSECT , NINS , NF , NPRT , ISTRE S , 
IFATIG.IWTCST , IEQOS, ITRAS 


2014 




3. 

THETA, PHI.XDIST, DIAM, AROD, 
XEMIS.FACC 


10F8.0 

4. 

STAAT , DE LTA, WROTE , STOOP 


10F8.0 

5. 

AS, R, HH, TS, TC, SL, SLS, BE 


10F8.0 

6. 

F07, UF, DST, EALL, CRN, BF.BFL, BL 


F8.0 

7. 

SN, CA,XB, CPGAS, XMC , XMP 


6E12. 8 

8. 

HEADING(K) 

1,12 

12 A? 

9A. 

TABL, TCHAR, TREC, RHOV, RHOC, 
TBLOW 


6E12.8 

9B. 

E MV, EMC, H300, VL, HV, FV 


6E12. 8 

9C. 

TV, CHARK, CHARC, ABLK, ABLC 


6E12.8 

10. 

NP, NKC.NKV, NCPV, IQBLCK 


715 

11. 

TKC(I),XKC(I) 

1, NCPC 

6E12.8 

12. 

TCPC(I), CPC(I) 

l.NCPC 

6E12.8 

13 A. 

TKV (I) , XK V(I) 

1 , NK V 

6E12. 8 

13B-1. 

NTKV, NPKV, PKV(I) 

1 , NPK 

215, 7E10.5 

13B-2. 

TKV (I) , XKV (U) 

1 , NTKV;1 , NPKV 

8E10.5 

14. 

TCPV, CPV(I) 

1, NCPV 

6E12.8 

15. 

TS(I) , SR(I) 

1, NREC 

6EL2.8 

16. 

NMB, NPBS, BL 


2I5.E14.8 

17. 

XNPM(I) 

1, NMB 

6E12. 8 

18. 

NKPB(I) , NCPB(I) 

1, NMB 

1015 

19. 

XIDNT(I, J) 

1, 12;1, NMB 

12A6 
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Table 3-2. Input Records Format (Cont.) 


Record 

Data 

I, J, K RANGE 

Format 

20. 

TXK(I,J),XK(I,J) 

1, LK;1, NMB 

6E12.8 

21. 

TCP(I, J) , CPK(I, J) 

1, LCP;1, NMB 

6E12.8 

22. 

RHOBX(l) , XBM(I) , EMFB(I) , EMBB(I) 

1, NMB 

6E12. 8 

23. 

H(I), GAPX(I) , FTEST(I), BTEST(I) 

,1, NMB 

6E12.8 

24. 

HEADNG(I) 

1,12 

12A6 

25. 

TENV , HENV , FENV , QLOSS 


6E12.8 

26. 

HEADNG(I) 

1,12 

12A6 

27. 

TEST2, TEMPI 


6E12. 8 

28. 

TEMDI(I) 

1, NPF 

6E12. 8 

29. 

NHP 


15 

30. 

HX(I), TW(I) 

1, NHP 

6E12. 8 

31. 

IPRINT , NC , NH , N LC , NV , PZ , VB 


3I5.2F10.0 

32. 

TALLW(I) 

!> 9 

10F8.0 

33. 

XEMIS(I) 

!> 9 . , . 

. 10F8.0 

34. 

RHO(I) 

1,9 

10F8.0 

35. 

ID(I, J) , MPT(I, J) 

1, NMAT;1, 11 

. 2014 

36. 

AX(I,J,K) 

1, NMAT;1, 11; 
1, MPT(I, J) 

10F8.0 

37. 

AY(I,J,K) 

1, NMATjl , 11; 
1, MPT(I, J) 

10F8.0 

38. 

X(I) 

1,9 

10F8.0 

39. 

QCONL(I) 

1,9 

10F8.0 

40. 

QCONT(I) 

1,9 

10F8.0 

41. 

Y(I) 

1,9 

10F8.0 

42. 

MAT(I,J),TAMP(I, J) 

1, 9;1, NSEG 

9(12, F6.0) 

43. 

NR(J) , NI(J) , MR(I, J) , VFACT(I, J) 

1, 9;1, NRSG 

12,16, 

9(12, F6. 0) 

44. 

IPFI , IPF (I) , IP A D , KF LE X , NPAN 

1,4 

2014 
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Table 3-2. Input Records Format (Cont.) 


Record 

Data 

I, J, K Range 

Format 

45. 

DT(1),XL, REY, VU,QL, AMACH 


10F8.0 

46. 

DT(2 ), TT, WER, D, VS, XI, DUEH, YCL, 
DREF 


10F8.0 

47> 

DT(3) , AE , VJ , WE J , W , TJ ,XJ,YP 

- - — - 

1 OF 8. 0 " 

48. 

DT(4) 


10F8.0 

49. 

HPAN, HC, AI, AIY, AW, BW, EP , TIMEF 


10F8.0 

50. 

C(I) , RHOP 


10F8.0 

51. 

TIME(I) , ALT(I) , VINF(I) , ALPHA(I) , 
BETA(I) , fflNSD(I) , TINSD(I) , XSTG(I) , 
NREADT 

1,99 

8F8. 0,116 

52. 

KINDP, KINDS, LENGTH, WIDTH, 
DLPANL, DWPANL, A, B, MATLID, ICOS 


1214, 6E8.0, 
214 

53. 

PINS1 , PINS2, PINS3, TINSl , TINS2, TINS 

3 

9E8.0 

54-1. 

NRIBS, CHORD, RADIUS 


I8,9E8.0 

54-2. 

GINSRT , TCORE , TEDGE 


9E8.0 

54-3. 

NRIBS, HRIB, TEDGE , E1RIB, E2RIB, 
E3RIB, T1RIB, T2RIB, TWRIB 


18, 9E8. 0 

54-4. 

54-5. 

GINSRT , TCORE , TE DGE , TEXT , PEXT 


9E8.0 

55-1. 

GBOLT , GNUTPL, GW ASH, TCORN, TPOpT, 
ODPOST, LTUBE , TTUBE , TF NG1 , TBMLA, 
TBMSA, TDOUBC, TDOUBP, TP LATE , TSEAL, 
HBEAMA, WBEAMA 


55-2. 

GBOLT, GNUTPL, GWASH , GINSU L , TPOST , 
WPOST 

9E8.0 

55-3. 

GBOLT , GNUTPL, GWASH , GC LAMP , TPOST , 
ODPOST, ODPOSR, TTUBE , TFNG1 , TBMLC, 
TBMSC , WBMLC , WBMSC , TRIBL, TRIBS, 
WRIBL, WRIBS, HRING, ODRING, IDFNG1 , 
IDFNG2, HFNG1 , HFNG2, TRING1, TRING2 

9E8.0 

56. 

AT, BT, CT, CF1 , EGTH, ETA 


9E8.0 

57. 

FTH, FTS, K1,K2, NPA, OS, STPS 


9E8.0 








Table 3-3. Output Symbols 



Definition 


TAU Time in trajectory for which output is given, sec 

AL Altitude, ft 

VI Free-stream velocity, ft/sec 

AOFA Angle of attack, degrees 

PI Free-stream static pressure, psia 

AMI Free-stream Mach number 

A ME Local Mach number 

RYI Free-stream Reynolds number/ft 


PE 

Q(i) 

QNET(I) 

TEMP(I,J) 

A 

XX 

zz 

T 

FT 

FNET 

EDOT 

FTU 

FCY 

E 

TIMS 

Y2MS 

C3MS 

C4MS 

F5MS 

F6MS 


Local static pressure , psia 

Boundary convective heat transfer rate at Ith Column, Btu/ft 2 -sec 
Net external surface heat transfer at Mi Column, Btu/ft 2 - sec 
Temperature of Ith Column and Jth Segment at time TAU 
Section area of the element C stress analysis, in. 2 
X-coordinate of the element, in. 

Z-coordinate of the element, in. 

Temperature of the element, °R 
Thermal stress 
Total stress 


Creep rate 

Ultimate tensile strength, lb/in. 2 
Yield strength, lb/in. 2 
Youngs modules, lb/in. 2 
Design factor for ultimate tension 
Design factor for yield strength 
Design factor for ultimate compression 
Design factor for bucking of corrugation 
Design factor for crippling of flange 
Design factor for crippling of flange 


Used for NSECT-i 
through NSECT-6 
(Metallic panels) 
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Table 3-3. Output Symbols, (Cont.) 
Symbol Definition 


WBMS 

Creep rate 

Used for NSECT-1 

DMAX 

Maximum deflection 

• through NSECT-6 

EMS 

Minimum of margins of safety 

(Metallic panels) 

EMAX 

Total creep strain 


TS 

Corrugation thickness, in. 


TC 

Skin thickness, in. 


FVFT 

o 

Maximum tensile stress in axial direction in face sheets lb/kr 

FVFC 

Maximum compression stress in axial direction in face sheets lb/in' 

FVCT 

2 

Maximum tensile stress in coatings Ib/in 

FVCC 

Maximum compression stress in coatings lb/ in 2 

FSIM 

2 

Maximum shear stress in RSI lb/in 


FPIT 

Maximum principle stress in RSI lb/in 2 


FPIC 

Minimum principle stress in RSI lb/in 2 

- 

FSCM 

Maximum shear stress in structural panel lb/in 2 

FSBM 

Maximum shear stress in bond lb/in 2 


FPBT 

Maximum principle stress in bond lb/ in 

2 

ZMAX 

Maximum normal deflection of middle span, in. 
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SECTION 4 


SAMPLE PROBLEM 

4.1 SAMPLE PROBLEM No. 1 

This problem concerns sizing a section of circular arc corrugation panel on the 
bottom centerline of the space shuttle booster. Figure 4-1 shows the panel corruga- 
tions. The panel is made of Rene' 41. For an initial trial, a thickness of 0.040 inch 
is used. Figure 4-2 shows the conduction matrix which is used for structural tem- 
perature response. QCONL(I) is used to accommodate the separation and reattach- 
ment of flow on the corrugations. For internal radiation, it is assumed (for simplicity) 
that each surface element interacts only with the base element at the same column. 

The inner surface is assumed to be an aluminum L0 2 tank which is kept at 168° R until 
all the liquid oxygen is evacuated at 194 seconds in the trajectory. Figures 4-3 through 
4-9 show card images of the input, and output of the sample problem. 

ALL DIMENSIONS 



SEMI-SMOOTH CORRUGATION 


Figure 4-1. Corrugation 
AERODYNAMIC 



Figure 4-2. Conduction Nodes 
4-1 


4.2 SAMPLE PROBLEM NO. 2 


This problem concerns sizing an RSI TPS on the bottom centerline of the space 
shuttle orbiter. The configuration includes one inch of RSI, 0.3” RTV bondline, 0.6” 
honeycomb substrate, and 1” backup insulation. Card images for the input are given 
in Figure 4-10, and selected output results are given in Figures 4-11 through 4-17. 
These results include, for the short part of the trajectory considered, results of the 
thermodynamics analysis, the discrete and finite element stress analyses, the fatigue 
analyses, and the weight/cost results. 


4.3 SAMPLE PROBLEM NO. 3 

This problem is a typical sample case of the charring ablator analysis performed 
with the modified computer program of Curry (Ref. 3) adapted to computer program 
P5490B. The modifications and computer code simplifications to Reference 3 are 
discussed in Reference 1. Typically the ablator is 1. 0 inches thick with the backup 
structure consisting of 0.1 inches thick aluminum. Listing of the computer input is 
shown in Figure 4-18. Selected outputs are given in Figures 4-19 through 4-24. 


4.4 SAMPLE PROBLEM NO. 4 

This problem concerns sizing a phase change material (PCM) in the backup 
structure of a TPS panel. For this sample problem a RSI outer panel was assumed 
(0.25 inches thick) with a 0.08 inch bond line (PD 200-F8), 0. 5 inch metallic PCM 
(Gallium) and a 0. 2 inch aluminum backup material. Card images for the input are 
given in Figure 4-25, and selected output results are given in Figures 4-26 through 
4-27. The computer output for this case is essentially identical to that given in 
Reference 3. Basically the key output is the temperature distribution in the TPS 
panel. 
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37 
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37 

5.26 

6.01 

7.26 

8.50 

9.75 

10.99 

12.24 

13.49 



37 

31 . 60+6 

31 . 00+6 

30 . 00+6 

28 . 75+6 

27 . 65+6 

26 . 20+6 

24 . 60+6 

22 . 75+6 



37 

6 . 22-6 

6 . 40-6 

6 . 70-6 

7 . 00-6 

7 , 31—6 

7 . 62-6 

7 . 93-6 

8 . 23-6 



37 

1 . 35+5 

1 a 33 + 5 

1 . 31+5 

1 . 31+5 

1 . 31+5 

1 . 31+5 

1 . 30+5 

1 . 08+5 



37 

1 . 65+5 

1 . 62+5 

1 . 56+5 

1 . 53+5 

1 . 51+5 

1 . 51+5 

1 . 48+5 

1 . 26+5 



36 

6000 

10000 

20000 

30000 

50000 

70000 

90000 




37 

47 . 25+3 

46 . 00+3 

44 . 15+3 

42 . 90+3 

41 . 05+3 

39 . 60+3 

38 . 00+3 




37 

48 . 05+3 

46 . 70+3 

44 . 70+3 

43 . 35+3 

41 . 45+3 
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35 
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.7 
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41 
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1 
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1 
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Figure 4-3. Card Images of Input to Sample Problem No. I 
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49 

0.1 

0.01 

.001 

.002 

0.5 

2.0 

Ul 

• 

50 

254.56 

-62.717 

4. 41 89-. 

025179 

160. 



51 

0.0 

368.0 

0.0 

0.0 

0.0 

1. E 9 

168.0 

! 

40.0 

9681.0 

499.3 

0.0 

0.0 

1. E 9 

168.0 

j 

60.0 

41750,0 

1299.0 

0.0 

0.0 

1. E 9 

168.0 

1 

120.0 

96470.0 

3063.0 

0.0 

0.0 

1. E 9 

168.0 

I 

160 * 0165500 . 0 

5994.0 

0.0 

0.0 

1. E 9 

168.0 


174.0186500.0 

7234.0 

0.0 

0.0 

1. E 9 

168.0 

1 

182.0199100.0 

7954.0 

0.0 

0.0 

1. E 9 

168.0 


190.0211000.0 

8681.0 

0.0 

0.0 

1. E 9 

168.0 


194.0216700.0 

9047.0 

0.0 

o.o 

1. E 9 

168.0 


194.25217030.0 

9045,7 . 

0.4 

0.0 

0.0 

0.0 


199.0223400.0 

9021.0 

7.5 

0.0 

0.0 

0.0 


209.0234700.0 

8971.0 

22.5 

0.0 

0.0 

0.0 


219.0243300.0 

8927.0 

37.5 

0.0 

0.0 

0.0 


229.0249300.0 

6892,0 

52.5 

0.0 

0.0 

0.0 


244.0253000.0 

6856.0 

60.0 

0.0 

0.0 

0,0 


264.0246500.0 

6842.0 

60.0 

0.0 

0.0 

0.0 


284.0233200.0 

8849.0 

60.0 

o.o 

0.0 

0.0 

; 

304.0207400.0 

8826.0 

60.0 

o.o 

0.0 

0.0 

i 

i 

324.0172500.0 

8593.0 

60.0 

0.0 

0.0 

0.0 

| 

344.0134200.0 

7436.0 

60.0 

o.o 

0.0 

0.0 

i 

354.0116600.0 

6450.0 

40.7 

o.o 

0.0 

0.0 


364.0107300.0 

5647.0 

31.9 

o.o 

0.0 

0.0 


374.0100500.0 

4898.0 

30.5 

o.o 

0.0 

0.0 

i 

384.0 

97150.0 

4122.0 

35.0 

0.0 

0.0 

0.0 


394.0 

94380.0 

3255.0 

46.2 

0.0 

0.0 

0.0 

! 

404.0 

91360.0 

2411.0 

44.6 

0.0 

0.0 

0.0 

| 

414.0 

87450.0 

1971.0 

38.1 

0.0 

0.0 

0.0 

i 

i 

424.0 

82320.0 

1731.0 

29.5 

o.o 

0.0 

0.0 


434.0 

75890.0 

1596.0 

24.7 

0.0 

0.0 

0.0 

i 

444,0 

68370.0 

1497.0 

21.3 

0.0 

0.0 

0.0 


454.0 

60160.0 

1406.0 

17.9 

o.o 

o.o 

0.0 

i 

464.0 

52030.0 

1305.0 

14.1 

o.o 

0.0 

0.0 


474.0 

46810.0 

1174.0 

9.1 

o.o 

0.0 

0.0 


484.0 

44560.0 

1048.0 

5.0 

o.o 

0.0 

0.0 

i 

494.0 

43010.0 

962.0 

5.0 

o.o 

0.0 

0.0 

i 

504.0 

41040.0 

918.0 

5.0 

o.o 

0.0 

0.0 

! 

514.0 

38350.0 

903,7 

5.0 

o.o 

0.0 

0.0 


524.0 

35080.0 

899.5 

5.0 

o.o 

0.0 

0.0 


534.0 

31520.0 

895.7 

5.0 

o.o 

0.0 

0.0 


544.0 
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Figure 4-3. Card Images of Input to Sample Problem No. 1 

(Continued) 
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Figure 4-4. Output of Sample Problem No. 1 - Input Data 
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Figure 4-4. Output of Sample Problem No. 1 - Input Data (Cont.) 
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Figure 4-4. Output of Sample Problem No. 1 - Input Data (Cont.) 
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Figure 4-4. Output of Sample Problem No. 1 - Input Data (Cont.) 
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Figure 4-7. Output of Sample Problem No. 1 - Input to Weight/Cost Analysis 
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THERMAL PROTECTION SYSTEM COST SUMMARY 


COST S/SQ "T 


THEOOETICAL FIRST UNIT COST (TED) 461.49 


NON RECURRING COST 


EO AND 9 .22248,04 
TOOLING 1172.26 
GROUND TEST HARDWARE 1739.58 
PLIGHT TEST ARTICLES 922.99 
FLIGHT TEST S AND RP 3u 9. 2u 


TOTAL NONRECURRING TPS COST 26383.05 


RECURRING PRODUCTION COST 


SUSTAINING ENGINEERING 
SUSTAINING TOOLING 
PRODUCTION ARTIGL C S 
TEST ARTICLE CONVERSION 


INCLUDED IN Tfij 
INCLUDED IN T r U 
461.49 
139. AS 


TOTAL RECURRING PRODUCTION COST 599.93 


RECURRING OPERATIONS COST 

REPLENISHMENT S ANO RP 514.79 

TOTAL RECURRING OPERATIONS COST 614.7c 


TOTAL T°S PROGRAM COSTS 


27597.68 


NUMBER OF PRODUCTION UNITS 


1.9 


Figure 4-9. Output of Sample Problem No. 1 - 
Results of Total Cost Analysis 
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Figure 4-10. Card Images of Input to Sample Problem No. 2 
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Figure 4-10. Card Images of Input to Sample Problem No. 2 (Continued) 
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Figure 4-11. Output of Sample Problem No. 2 - Input Data (Cont.) 
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Figure 4-11. Output of Sample Problem No. 2 - Input Data (Cont.) 
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Figure 4-11. Output of Sample Problem No. 2 - Input Data (Cont.) 
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Figure 4-13. Output of Sample Problem No. 2 - Results of Stress Analysis 
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Figure 4-14. Output of Sample Problem No. 2 - Results of Fatigue Analysis 
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Figure 4-16. Output of Sample Problem No. 2 - Results of Weight/Cost Analysis 
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Figure 4-16. Output of Sample Problem No. 2 - Results of Weight/Cost Analysis (Cont.) 



THERMAL PROTECTION SYSTEM COST SUMMARY 


C 

o 


OJ 

O' 

er 

<o 

ro 


J H ® J -T I *-* 

<T> O O J I Qf» 

• • • * • I • 

^ #K JD I IT 
If* C* t\J N- N. P O 

vr\ ir\ fr k> i o 

on hn O' i ( 7 > 

CM H Lf> CVJ I W 

CO 


3 DNN 
U. U_ CM H 
P— P- • • 
K «D 
Z2<Oo 
HHiflrC 
PO ^ 

o e ^ 

Ul Ul 

o a 

13 3 


I 


in 

o 

o 


to 

c 

o 




UJ 

ar 

o 

UJ 

x 




'/) 



Z 



CO 


00 



o 

p- 


o 

p- 


z 


p- 



o 

to 


►h 

c/> 


o 


M 




o 

z 

P- 

o 


PH 

on 

z 



V) 

o 

o o 

o 

C-> 

a 

P- 

p- 

3 



a 


Z PH 

3 


a 

<t 

V) 



bKOO. 

P- 

z 

♦H l/> 

O 

CO 


O' 

o 

Z 


0£lU V 


o 

O' to o' 

o 

z 

o 

UJ 

o 

o 

►- 

« -J 

o 

PH 

UJ O UJ UJ 

O' 

o 

z 

a 


PH 

in 

ZOO 

z 


UJ Z -1 > 

a 

PH 

«* 

o 

r 

P- 

o 

OhZ 

IH 

o 

z »H o z 


K 



«a 

o 

o 

a P- <1 

O' 

3 

H J H O 

o 


to 

ts 

a 

3 


«* Qt 

a 

o 

o o ♦- o 

z 

Of 


z 

o 

O 

*j 

X «* GO 

3 

o 

ZOO' 

H 

UJ 

1- 

PH 

o 

o 

z 


o 

or 

UJ h < UJ 

V 

a 

z 

a 

a 

a 

PH 

P- »- P- 

UJ 

a 

-J 

O' 

o 

UJ 

a 

a 

a 

O' 

V) co to 

Of 


o o z o 

3 


r 

3 



O' 

UJ Ul UJ 

z 

o 

Z Z O PH 

o 

o 

X 

O 

CO 

u 

n 

O h- P- P— 

o 

z 

PH PH PH P- 

It* 

z 

to 

tu 

a 

o 

o 

l 1 * 

z 

ph 

Z Z P- O' 

O' 

PH 

PH 

a 

p-» 


UJ 

OZOP-P- 


O' 

H H U< 


O' 

z 



a 

or 

Z PH Z X X 

-J 

Of 

«X « 3 

-J 

a 

UJ 


—i 

UJ 


< J DO O 

*1 

3 

P- P- O P- 

<x 

3 

_J 

<x 

«* 

CD 

z 

O O ph PH 

p— 

o 

(/) 1/1 O (/l 

p- 

o 

a 

»— 

p- 

X 

o 

o o O' -1 -I 

o 

Ul 

3 3 O' UJ 

o 

UJ 

UJ 

o 

o 

3 

z 

UJKOU.U. 

p— 

O' 

1/11/111* 

p— 

a 

a 


w* 

2 


4-28 


Figure 4-17. Output of Sample Problem No. 2 - Results of Total Cost Analysis 
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Figure 4-18. Card Images of Input to Sample Problem No. 3 
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Figure 4-19. Output of Sample Problem No. 3 - Input Data 
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Figure 4-19. Output of Sample Problem No. 3 - Input Data (Cont. ) 
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Figure 4-19. Output of Sample Problem No. 3 - Input Data (Cont.) 
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Figure 4-19. Output of Sample Problem No. 3 - Input Data (Cont.) 
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Figure 4-20. Output of Sample Problem No. 3 - Results of Thermal Analysis 
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Figure 4-21. Output of Sample Problem No. 3 - Results of Fatigue Analysis 
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Figure 4-22. Output of Sample Problem No. 3 - Input to Weight/Cost Analysis 
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: THERMAL PROTECTION SYSTEM COST SUMMARY 
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Figure 4-25. Card Images of Input to Sample Problem No. 4 
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Figure 4-26. Output of Sample Problem No. 4 - Input Data (Cont.) 
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*Figjire*4-:26. Output of Sample Problem No. 4‘ - Input Data (Cont. ) 
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Figure 4-27. Output of Sample Problem No. 4 - Results of Thermal Analysis 
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Figure 4-27. Output of Sample. Problem No. 4 - Results of Thermal Analysis (Cont.) 
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Figure 4-27. Output of Sample Problem No. 4 - Results of Thermal Analysis (.Cont.) 
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APPENDIX I 


PROGRAM SOURCE LISTINGS 


1-1 



OOftO 


OVERLAY <P5490*0»0) 

PROGRAM P5490B <INPUT=1021»OUTPUT=t021 . TAPE1=1021 t TApE3=102l » 1 

1 TAPE4=1021»TAPE5=INPUT>TAPE6sOUTPUT) 2 

3 

VERSION b OF PROGRAM P5490, TPS OPTIMIZATION STUDY PROGRAM 4 

I NOVEMBER 1971 5 

6 

C0MM0N/BL0CK6/ IPRINTf NC. NH* NLC* NV» PZ» VB 7 

COMMON /FLAGS/ IFIRST# ISTRESf IFATIG. IWTCST 8 


COMMON /LINK/ NSECT#TC»TS#TSKIN1#TSKIN2»TINS1»TINS2»TINS3»XdST 9 



COMMON /MOMENT/ AII.PMI 



10 


COMMON /SONIC1/ AE »AI ,AIY 

fAMACH fAMF 

f AW . 

11 


lbW ,C<4> »D »DREF ,DT(4> 

fDVEH ,EPfEpP 

f HC . 

12 


2HF ,HPAN « IP AO #IPF(4) ,IPFI 

f KFLEX fNENG 

# NPAn f 

13 


3QF »QL ,REY fRHOP # TIMEF 

f TJ f TT 

f VJ f 

14 


4VS »VU »VV f WE J »WER 

fXI fXJ 

f XL f 

15 


5YCL #YP 



16 


COMMON BLANK (21487) 



17 

c 




18 


ifikstso 



19 

c 

EXECUTE INPUT AND SIZING ROUTINES 



20 


10 CALL OVERLAY (5HP5490»1» 0# 6HREC ALL) 



21 


IF (IWTCST.EQ.-1> GO TO 20 



22 

c 

EXECUTE RSI ROUTINE IF RSI OPTION WAS 

SELECTED 


23 


IF (NSECT.E0.7) CALL OVERLAY <5HP5490»4f 0) 


24 

c 

EXECUTE FATIGUE ROUTINE UNLESS SUPRESS 

FLAG SET 


25 


IF < IFATIG.EQ.O) CALL OVERLAY (5HP5490# 

2 f 0 ) 


26 

c 

EXECUTE WEIGHT-COST ROUTINE UNLESS SUPRESS FLAG SET 


27 


IF (IWTCST.EO.O) CALL OVERLAY <5HP5490f 

3.0) 


28 


GO TO 10 



29 


20 CAUL OVERLAY (5HPS490f3t0) 



30 


GO TO 10 



31 


END 



32 


1-2 



n r» 


FUNCTION TABLE (X,XTB»YTB»N) TBL 1 

THIS SUBROUTINE DOES LINEAR INTERPOLATION, T8L 2 

WHERE Y=FtX>. IT WILL NOT EXTRAPOLATE. TBL 3 

DIMENSION XT0U),VT8m TBL 4 

C TBL 5 

1=1 TBL 6 

IF (X.GE.XTB(I) .AND.X.LE.XTB(N) ) GO TO 10 TBL 7 

WRITE (6»60) TBL d 

T ABLEsO • TBL 9 

RETURN TBL 10 

10 1=1*1 TBL 11 

IF <X.6E.XTB(I>) GO TO 10 TBL 12 

IF <YTB(I-l>-YTBm> 20»30,40 TBL 13 

20 Y=(YTB(I)-YTb(I-l))/(XTB(I)-XTB(I-l))*CX-XTB(I-l))*YTB(I-n TBL 14 

60 TO 50 TBL 15 

30 Y=YTB ( I ) TBL 16 

60 TO 50 TBL 17 

40 Y=(YTB(I-l)-YTB(in/(XTB(I)-XTB(I-l))*(XTB(I)-X)*YTB(I) TBL 18 

50 TABLEsY TBL 19 

RETURN TBL 20 

C TBL 21 

60 FORMAT (26H0X ARGUMENT ERROR IN TABLE) TBL 22 

END TBL 23- 
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FUNCTION TRPLAT ( A»B»C » X » J»K ) 
DIMENSION A<9»11»9> »8<9»U*9> 

IF <C.LE.BU» J»l) ) GO TO 30 
IF <C.GE.B<I,J,K) > GO TO 40 
DO 10 L=1»K 

IF <8<I»J»L)-C) 10# 10*20 
10 CONTINUE 

20 TRPLAT=A<I»J#i— 1) + <A(I,J»L)-A<I» JtL- 

1<I»J»L-1>> 

RETURN 

30 TRPLATsA ( I » J * 1 ) 

RETURN 

40 TRPLATsA ( I * J»K) 

RETURN 

END 


TRP 1 
TRP 2 
TRP 3 
TRP 4 
TRP 5 
TRP 6 
TRP 7 

1) )/<B<I»J»U-B«I»J»L-l) )*<C-PTRP 8 

TRP 9 
TRP 10 
TRP 11 
TRP 12 
TRP 13 
TRP 14 
TRP 15- 



OVERLAY (P5490, 1,0) 




TPS 


program tpsopt 




TPS 

1 

' 




TPS 

2 

COMMON /ABLTN/ TEU,QIN,DTS,TX2(30> ,VELX»IQINPP,DELP»APRNT» INT.PEP 

TPS 

3 

COMMON /ARRH/ATHETA(10) »AP,XB»SN#CA,XMTPT( IQ) .AOPT 


TPS 

4 

COMMON /BREV/ KUS,KAS,KOS,NAP,NPC»NIFPCM,DQINl,DQIN2,r>QIN3»KA,KU 

TPS 

5 

1# TMELT 




TPS 

6 

COMMON /CCPS/CPGAS 




TPS 

7 

COMMON /CCSDOT/SDOT 




TPS 

8 

COMMON /CNOTN/ DEL » OTMAX, TTAUt ITER 



TPS 

9 

COMMON /OELX/ DELX1 » DELX2 » DELX3 



TPS 

10 

COMMON /OMND/ DUMMY (1119) 




TPS 

11 

COMMON /FLAGS/ IFIRST, ISTRES, 

IFATIG, IWTCST 


TPS 

12 

COMMON /HF/ HF1,HF2#HF3 




TPS 

13 

COMMON /KAN/ KAN1 ,KAN2»KAN3 




TPS 

14 

COMMON /LINK/ NSECT, TC > TS» TSKIN1 , TSK IN2.TINS1 »TINS2»TINS3> XdST 

TPS 

15 

COMMON /MOMENT/ A I I, PM I 




TPS 

16 

COMMON/OLA/ T JO ( 10 ) »CDJ( 10) 




TPS 

17 

COMMON /PCM/ QRIN1»QRIN2,QRIN3, 

QROT1.QROT2, 

QROT3 


TPS 

18 

COMMON /GST/ QST1 , 0ST2» QST3 




TPS 

19 

COMMON /SONIC1/ AE »AI 

»AIY , AMACH , AMF 

, AW , 

TPS 

20 

16W ,C(4> »D »DREF 

,DT(4) ,DVEH ,EP,EPP 

,HC , 

TPS 

21 

2MF , hPAN ,IPAD ,IPF<4) 

»IPFI ,KFLEX ,NENG 

»NPAn , 

TPS 

22 

3GF , GL *REY ,RHOP 

,timef ,tj 

,TT 

,VJ , 

TPS 

23 

4VS ,VU ,VV » WEJ 

,WER ,XI 

,XJ 

, XL , 

TPS 

24 

5YCL , YP 




TPS 

25 

COMMON/TPS/ A ( 20 ) #Q(9) ,R,X(9) 




TPS 

26 

COMMON /UNDM/ IDUMMY(56) 




TPS 

27 

EQUIVALENCE (NPF , IDUMMY (29) ) 




TPS 

28 

COMMON AL » ALPHA (99) » ALT (99) 

, AME 

, AMI 

TPS 

29 

l,AOFA fAOFE .AROD 

, AS 

, AX (9,11,9) 

, AY ( Q, 1 1 ,9) TPS 

30 

2* BATA #BE ,BETA(99) 

,BF 

»BFL 

»8L 

TPS 

31 

3»DELTA #DIAM »DIST(9) 

,DST 

,E(20,99) 

,eall 

TPS 

32 

4#EAt(20»99) »EDOT(20*99) »EMIS(9> 

,FACC 

,FCU(20»99) 

,FCY( 20,99) TPS 

33 

5»FNET(20) »FSU(20.99) »FT(20) 

,FTU(20,99) ,FVE 

,F07 

TPS 

34 

6rG(20r99) #HH ,HINS 

,HINSD(99) 

, ICONF 

, ILINKO 

TPS 

35 

7 » IQINP # ITURB t IWALT 

,MAT ( 9,9 ) 

,MPT (9,9) 

, MR (9,18) 

TPS 

36 

SrNCOLM #NCR #NCRC 

,NF 

,NI (16) 

,NINS 

TPS 

37 

9»NMAT »NMIN ,NPRT 

»NPSG 

,NR(18) 

,nrsg 

TPS 

38 

*»NSEG # NTRAJ »N33 

,PE 

,PHI 

,PI 

TPS 

39 

*#PINP (99) »GC0NL(9) »QCONT (9) 

,QINP(99) 

,QNET(9> 

,RH0(9) 

TPS 

40 

SrRHOI #RYE »RYI 

,SL 

,SLS 

,STAAT 

TPS 

41 

*»STI t STOOP »T(20#99) 

,TALLW(9) 

,TAMP(9»9) 

,TAU 

TPS 

42 

*»TCl #TEMP(9#9) #THETA 

,TI 

, TIME (99) 

,TINS 

TPS 

43 

$»TINSD(99) t UP »VFACT(9»ie)»Vl 

,VINF(99) 

, wrote 

TPS 

44 

$ * XEMIS » XSTG ( 99) »XX(20) 

,Y(9) 

,ZZ(20) 


TPS 

45 

DIMENSION TMAX(9) 




TPS 

46 

OIMENSION IA(1)»IB(1) 




TPS 

47 

EQUIVALENCE ( IA»NSECT) t ( IB, AL) 




TPS 

48 

DIMENSION AM ( 15 ) , FM(15) 




TPS 

49 

DATA AM / 




TPS 

50 

1 1*0, 1.1* 1*2, 1*3, 1.4, 1.5, 

1 .6, 1.7, 1, 

8, 1.9, 2.0, 

2.5, 3.0, 

TPS 

51 

2 10.0, 30.0 / 




TPS 

52 

data FM / 




TPS 

53 

1.482, ,482» .490, .513» .560 » .660, . 

880,1.15,1.37,1.57,1.70,2.29,2.83, 

TPS 

54 

29.975, 31.0 / 




TPS 

55 





TPS 

56 

IF (IFIRST, NE.O) GO TO 60 




TPS 

57 
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IFIRST-1 
DO 10 I:l»56 
10 I DUMMY ( I ) = 0 
□0 20 1:1 #1119 
20 DUMMY ( I ) :0 • 

DO 30 1=1 >9 
30 1A(I)=0 

DO 40 I:i»39 
40 A(I):Q. 

DO 50 I=1#21487 
50 IB(I):0 
GO TO 80 
60 DO 70 I:l#9 
Q ( I ) =0* 

QNET(I)=0. 

DO 70 J=lf9 
70 TEMP(I,J)=0. 

CALL INPUT ROUTINE 

80 CALL OVERLAY (5mP5490#1#1»6HRECALL) 

IF (IWTCST.EG.-1) GO TO 500 

DTMAX=DElTA 

AIIsAI 

EPP=EP 

AMFsAMACH 

IOINPPsIOINP 

IF (NSECT.6T.6) T AMP ( 1 » 1 ) =TX2 ( 1 ) 

QFsQL 

IF ( IQINP.GT • 1 ) GO TO 90 
GL=0. 

QF=0. 

90 IGOsO 
ITER=0 
IVF=0 
ISS=0 
IST=0 
ICK=1 
YINS-O.O 

DO 100 i=i*ncolm 
DO 100 J:i#NSEG 
100 TEMP(I,J)=TAMP( j,j) 

IF (NINS.Ett.O) GO TO 120 
DO 110 J=1*NSEG 
K=MAT(1»J) 

TMAX(K)=0.0 

IF (K.EO.NINS) YINSsYINS+YU) 

110 CONTINUE 
120 TAU=STAAT 
TTAU=STAAT 
OELsSTAAT 

IF (NSECT.LT. 7. AND. NMAT.NE.O) DELTAzl.O 
APRNTsWROTE 

130 IF (WROTE. GT, DEL) GO TO 140 
OELsDEL-WROTE 
GO TO 130 

140 IF (NCOLM.GT .l.OR.NRSG.EO.O) GO TO 160 
DO 150 1:1 »NRSG 
150 VFACT ( 1 » 1 )-l . 

160 T AU:T AU+DELT A 


TPS 58 
TPS 59 
TPS 60 
TPS 61 
TPS 62 
TPS 63 
TPS 64 
TPS 65 
TPS 66 
TPS 67 
TPS 68 
TPS 69 
TPS 70 
TPS 71 
TPS 72 
TPS 73 
TPS 74 
TPS 75 
TPS 76 
TPS 77 
TPS 78 
TPS 79 
TPS 80 
TPS 81 
TPS 82 
TPS 83 
TPS 84 
TPS 85 
TPS 86 
TPS 87 
TPS 88 
TPS 89 
TPS 90 
TPS 91 
TPS 92 
TPS 93 
TPS 94 
TPS 95 
TPS 96 
TPS 97 
TPS 98 
TPS 99 
TPS 100 
TPS 101 
TPS 102 
TPS 103 
TPS 104 
TPS 105 
TPS 106 
TPS 107 
TPS 108 
TPS 109 
TPS 110 
TPS 111 
TPS 112 
TPS 113 
TPS 114 
TPS 115 
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TEU=TAU-0.5*DELTA 
IF (NTRAJ-2) 220 * 200 , 170 
170 00 lbO I=1#NTRAJ 

IF (TEU-TlME(I) ) 190 * 230 * 180 
180 CONTINUE 
IsNTRAJ 

190 IF (1-1) 200*200* 210 
200 1=2 

210 FR=(TEU-TIME(I-1) ) /(TIME ( D-TIME (1-1) ) 

AL= ( ALT ( I ) -ALT ( 1-1 ) ) *FR+ALT ( 1-1 ) 
VI=(VINF(I)-VINF(I-1) )*FR+VINF(I-1) 

AOFA= ( ALPHA ( I ) -ALPHA < 1-1 ) ) *FR+ALPHA ( 1-1 ) 
bATA= (BETA ( I )-BETA ( I — 1 ) ) *FR+BETA ( I— 1 ) 
HINS=(HINS0(I)-HINSD(I-1) )*FR+HINSD(I-1) 
T1NS=(TINS0(I)-TINSD(I-1> )*FR+T1NSD(I-1) 

X0= ( XSTG ( I ) -XSTG ( 1-1 ) ) *FR+XSTG < 1-1 > 

IF (IQINP.GT.1) GO TO 240 
GO TO 270 
220 1=1 
230 AL=ALT(I) 

V I =V 1 NF ( I ) 

AOFA=ALPHA(I) 

BATA=BETA(I) 

HINS=HINSD(I) 

TINS=TINSD(I) 

XO=XSTG ( 1 ) 

IF (IQINP.GT.1) GO TO 240 
GO TO 270 

240 00.260 I=l»NCOLM 

IF, (IGINP.EG.3) GO TO 250 
Q(I)=AL*QCONL(I) 

PE=VI 
GO TO 260 

250 TEMP (1,1 )=AL*QCONL(I) 

PE=VI 

260 CONTINUE 
GO TO 360 

270 CALL PRA63 (AL*PI,TI» RHOI , ICK ) 

IF (ICK. EO. 0) GO TO 460 
IF (IFATlG.Eo.l) GO TO 310 
AMI=VI/(49.01*SQRT(TI) ) 

QI=0.5*RH0I*vI**2 

IF (QI.LT.OL) GO TO 280 

QL=QI 

AMACHSAMI 

VU=Vl 

REY=RH0I*VU*XL/(2.27E-8*TI**1.5/(TI+198.6) ) 
280 IF (AMI.LT.l.) GO TO 310 
FCNAMI=TABLE(AMI,AM,FM,15> 

IF (FCNAMI.NE.O.) GO TO 290 
WRITE (6*610) 

GO TO 310 
290 QFF=GI/FCNAMI 

IF (QFF.LT.QF) GO TO 310 

QFsqff 

AMF=AMI 

TIMEF=TAU 

IF (ISS.EQ.O) GO TO 310 


TPS 116 
TPS 117 
TPS 118 
TPS 119 
TPS 120 
TPS 121 
TPS 122 
TPS 123 
TPS 124 
TPS 125 
TPS 126 
TPS 127 
TPS 128 
TPS 129 
TPS 130 
TPS 131 
TPS 132 
TPS 133 
TPS 134 
TPS 135 
TPS 136 
TPS 137 
TPS 138 
TPS 139 
TPS 140 
TPS 141 
TPS 142 
TPS 143 
TPS 144 
TPS 145 
TPS 146 
TPS 147 
TPS 148 
TPS 149 
TPS 150 
TPS 151 
TPS 152 
TPS 153 
T D S 154 
TPS 155 
TPS 156 
TPS 157 
TPS 158 
TPS 159 
TPS 160 
TPS 161 
TPS 162 
TPS 163 
TPS 164 
TPS 165 
TPS 166 
TPS 167 
TPS 168 
TPS 169 
TPS 170 
TPS 171 
TPS 172 
TPS 173 
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EPP=0. 

00 300 I=1»NPSG 
300 EPP=EPP+£ ( I * X SS ) 

£PP=EPP/NPSG 
310 ALF=A0FA/57. 2957795 
BET=8ATA/57. 2957795 
PHSPHI/57. 2957795 
TAsTHETA/57. 2957795 
Cl=COS(AtF)*COS(BET)*SIN(TA) 

C2-SIN ( AlF ) *C0S < BET ) *C0S ( TA ) 

CETA=C1+C2 

A0FE=ASIN(CETA) 

IF (ICONF.EG.5) A0FE=1.5708 
OIST(l)=ABS<xDST-X0) 

IF (IWALT.LT. 2) GO TO 330 
00 320 Is2»NC0LM 

320 OIST(I)=DIST(I-1)+0.5*(X(I)+X(I-1)) 

330 IF (PHI.LT.O.) GO TO 340 
CALL FLOwF(IGO) 

IF (IGO.EO.l) GO TO 460 
CALL thermo 

IF (PHI.EO.O) GO TO 350 
IF (ALF.EQ.o.AND.BET.EQ.O) GO TO 350 
340 CETA=C14C2*C0S(PH)+SIN(8ET) *COS(TA)*SIN(PH) 
A0FE=ASIN(CETA) 

CALL OFFCL 

350 IF (NMAT.EG.u) GO TO 450 
360 IF (NSECr.GT.6) GO TO 370 
C CALL CONOTN SUBROUTINE 

CALL OVERLAY ( 5HP5490 ,1,2. 6HREC ALL ) 

tau=ttau 

GO TO 390 
370 DTS=DELTA 
UELP=DEL 

IF (IGlINP.EQ.l) VELX=VI 
IF (IQINP.E0.4) VELX=AOFA 
QINsO(INT) 

PEPsPE 

C CALL ABLATION ROUTINES 

CALL OVERLAY ( 5HP5490 » 1 » 3» 6HRECALL ) 

00 360 J=1#NPF 
360 TEMP( j)rjX2( J) 

390 IF (NINS.EO.U) GO TO 450 
00 400 I=1.NC0LM 
DO 400 J=1*NSEG 
K=MAT(I* J) 

IF (TEMP(I.J) .GT.TMAX(K) ) TMAX <K ) sTEMP ( I r J) 

400 CONTINUE 

00 410 K=1»NMAJ 

IF (TMAX(K) .GT.TALLW(K) .AND.K.GT.NINS) GO TO 420 
410 CONTINUE 
GO TO 450 
420 YINS=0.0 

00 430 L=1»NSEG 
KK=MAT(1»U 

IF (KK.NE.NINS) GO TO 430 
Y(L)=FACC*Y<L> 

YINSsYINS4Y(L> 


TPS 174 
TPS 175 
TPS 176 
TPS 177 
TPS 178 
TPS 179 
TPS 180 
TPS 181 
TPS 182 
TPS 183 
TPS 184 
TPS 185 
TPS 186 
TPS 187 
TPS 188 
TPS 189 
TPS 190 
TPS 191 
TPS 192 
TPS 193 
TPS 194 
TPS 195 
TPS 196 
TPS 197 
TPS 198 
TPS 199 
TPS 200 
TPS 201 
TPS 202 
TPS 203 
TPS 204 
TPS 205 
TPS 206 
TPS 207 
TPS 208 
TPS 209 
TPS 210 
TPS 211 
TPS 212 
TPS 213 
TPS 214 
TPS 215 
TPS 216 
TPS 217 
TPS 218 
TPS 219 
TPS 220 
TPS 221 
TPS 222 
TPS 223 
TPS 224 
TPS 225 
TPS 226 
TPS 227 
TPS 228 
TPS 229 
TPS 230 
TPS 231 
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430 CONTINUE TPS 

WRITE (6,570) K»K»TMAX(K) *K»TALLW(K) ,TAU TPS 

WRITE (6,590) YINS TPS 

IF ( YINS. GT. 1.0) GO TO 440 TPS 

WRITE (ft, 600) TPS 

GO TO 90 TPS 

440 WRITE (6,580) TPS 

WRITE (6,600) TPS 

STOP TPS 

450 IF (NSECT.GT.6.OR.NMAT.EQ.0) DEL=DEL*DELTA TPS 

GO TO 470 TPS 

460 IST=2 TPS 

GO TO 480 TPS 

470 IF (TAU+.OtwDELTA. LT.STOOP.AND.DEL+.OlwDELTA.LT. WROTE) GO TO 160 TPS 

IF (TAU+.01*0ELTA.GE. STOOP) IST=2 TPS 

IF (NINS.EQ.1.OR.ISTRES.NE.O.OR.NSECT.EQ.8.OR.NMAT.EQ.0) GO TO 480TPS 


CALL STRESS(ISS»IST) 

480 IF (NPRT.EQ.l) CALL PRINT1 ( ISS, ITER ) 

IF (1ST.E0.2) GO TO 490 
QEL=0. 

ITER=0 
GO TO 160 

490 IF (IGO.EQ.l) WRITE (6,550) 

IF (1CK.EQ.0) WRITE (6,560) 

IF (IFATIG. EG. 0. AND. ISTRES.NE.O. AND. NSECT.LT, 8) CALL PANEL 
500 GO TO (510,510,510,510*520,520,530,530), NSECT 
510 TSKIN1=TS 
TSKIN2=TC 
TINS1=YINS 
GO TO 540 
520 TSKIN1=0. 

TSKIN2=TC 
TINS1=YINS 
GO TO 540 
530 TSKINlrTb 
TSKIN2=TS 
TINS1=BFL 
TINS2=BF 
TINS3=TC 
540 RETURN 


TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 

TPS 


550 FORMAT (46H ***** LOCAL VELOCITY SQUARE IS NEGATIVE ****♦) 

560 FORMAT (42H ***** ALTITUDE. LT.O, OR. GT. 700000 FT ***♦*) 

570 FORMAT (//56H0***** INSULATION SIZING NOTE **TPS 
1***//25H TEMPERATURE OF MATERIAL ,I2»17H BECAME TOO HIGH.,/6H TMAXTPS 
2 ( , I 1 , 3H ) =»F5.Q,6H 0EG-R»/7H TALLW( , I1,3H) =,F5.0»6H DEG-R,/7H TIMTPS 
3E =,F5.0,4H SEC,/) TPS 

580 FORMAT ( 43H THICKNESS OF THE INSULATION IS UNREAL IS T I C/34H PROBLEMTPS 
1 WAS DELETED AT THIS POINT) TPS 

590 FORMAT (44H THICKNESS OF THE INSULATION WAS CHANGED TO »F6.4»3H FTTPS 
1) TPS 

600 FORMAT (34H0***** END OF NOTE ****♦) TPS 

blO FORMAT ( 40H MACH NUMBER WAS OUTSIDE OF TABLE LIMITS) TPS 

END TPS 


232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 
279' 
280 
281 
282 

283 

284 

285 
286- 
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SUBROUTINE AIR( Ir J»P#S*H»Z#RHO»TR»CS> 


-I- -INPUT 

1 P (LB/FT2 ) t S(BTU/LB-DEO R) 

2 P(LB/FT2» H<BTU/LBM) 

3 H, S AND 1ST 6UEST OF P 

-J- -OUTPUT- 

1 P* H» S 

2 P» H» S AND Z(DIMENSIONLESS) 

3 P# H# S AND RHO(SLUGS/FT3) 

4 P, H# S» it RHO# TR(DEG R) AND CS(FT/SEC) 

PPAsP/2116.224 

PLOG=0.43429448»ALOG(PPA) 

IF U.EG.l) GO TO 160 

HY=H 

L=1 

DHMsl.OEb 

DHSO. 

IF (I.EQ.3) GO TO 160 
SS3.5 

10 IF (L.GT.21) 50 t 160 
20 DHPsDH 
DHsh-HY 

IF (ABS(OHM) .LT.ABS(OHP) ) GO TO 30 
DHMsDHP 
SYMsS 
30 L=L+1 

IF (ABS(DH/HY).LT. O.OOD GO TO 350 
IF (L.EQ.2) GO TO 40 
DHSs ( DH-DHP ) / ( S-SYP ) 

SYPSS 

SsS-QH/DHS 
GO TO 10 
40 SYPSS 

SsS-0 . 0 1*S*ABS ( DH ) /DH 
GO TO 10 

50 X2S0 . 43429448*AL0G ( 14 . 587834*SYM ) 

IF (ABS(X2-1.60) .GT.0.01) GO TO 60 

X3S1.60 

GO TO 90 

60 IF (ABS(X2-1. 76) .GT.0.01) GO TO 70 
X3S1.76 
GO TO 90 

70 IF ( ABS ( X2-1 .92 ) .GT.0.01) GO TO 80 
X3S1.92 
GO TO 90 

80 WRITE ( 6 » 1060 ) S»H»HY 
CALL EXIT 

90 SslO.0**X3/l4. 587834 
GO TO 160 

100 IF (L.GT .21 ) 150» 170 
110 DHPsDH 
dh=h-hy 

IF (ABS(OWM).LT.ABS(DHP)) 60 TO 120 
DHMsDHP 
120 L=L+1 


AIR 1 
AIR 2 
AIR 3 
AIR 4 
AIR 5 
AIR 6 
AIR 7 
AIR 8 
AIR 9 
AIR 10 
AIR 11 
AIR 12 
AIR 13 
AIR 14 
AIR 15 
AIR 16 
AIR 17 
AIR 18 
AIR 19 
AIR 20 
AIR 21 
AIR 22 
AIR 23 
AIR 24 
AIR 25 
AIR 26 
AIR 27 
AIR 28 
AIR 29 
AIR 30 
AIR 31 
AIR 32 
AIR 33 
AIR 34 
AIR 35 
AIR 36 
AIR 37 
AIR 38 
AIR 39 
AIR 40 
AIR 41 
AIR 42 
AIR 43 
AIR 44 
AIR 45 
AIR 46 
AIR 47 
AIR 48 
AIR 49 
AIR 50 
AIR 51 
AIR 52 
AIR 53 
AIR 54 
AIR 55 
AIR 56 
AIR 57 
AIR 58 
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IF (ABS(OH/HY) .LT. 0.001) GO 

TO 350 AIR 

59 


IF (L.EQ.2) GO TO 130 

AIR 

60 


OHS= ( DH-QHP ) / < P-PY ) 

AIR 

61 


PY=P 

AIR 

62 


P=P-DH/DHS 

AIR 

63 


GO TO 140 

AIR 

64 

130 

PY=P 

air 

65 


P=P-0 ,Ql*P*AtiS(OH) /OH 

AIR 

66 

140 

PPA=P/2116.224 

air 

67 


PLOG=0 . 43429448*AL0G ( PPA ) 

AIR 

68 


GO TO 100 

AIR 

69 

150 

WRITE <6# 1070 ) P*PY»H»HY 

AIR 

70 


CALL EXIT 

AIR 

71 

160 

SR=S*14. 587834 

AIR 

72 


SRLOG=0 . 43429448*AL0G ( SR ) 

AIR 

73 


X15=-39 . 1442+83 . 055B*SRL0G- 

38.2842*SRL0G*SRL0G AIR 

74 

170 

X151=-10 , 0* (PL0G-X15) 

AIR 

75 


IF (X151-40.0) 190 » 180 * 180 

AIR 

76 

160 

(15=0.0 

AIR 

77 


GO TO 22U 

AIR 

78 

190 

IF (X151+40.0) 20 0 » 210 *210 

AIR 

79 

200 

T15=1.0 

AIR 

no 


GO TO 220 

AIR 

01 

210 

T 15=1 ,0/ ( 1 . 0+EXP ( X151 ) ) 

AIR 

82 

220 

A=PlOG*PlOG 

AIR 

83 


b=SRLOG*SRLOG 

AIR 

84 


C=A*PLOG 

AIR 

85 


0=6*SRL0g 

AIR 

86 


LOG ( H/R ) =F ( LOGP , LOG ( S/R ) ) 

AIR 

87 


IF (SRLOG-l.b) 230 » 230 *240 

AIR 

88 

230 

HRCAL=12. 693669+5. 3975312*PL0G-48,7292l7*SRL0G-.1496l521*A-5.87887AIR 

89 


174*Pl 0G*SRL0G+48. 19278+B+, 90144132E“03*C+. 091 151473* A+SRLOG+l .6282 AIR 

90 


2829*PL0G*B-13. 065267*0 

AIR 

91 


GO TO 340 

AIR 

92 

240 

IF (SRLOG-1.76) 250*250*310 

AIR 

93 

250 

HR22=-1 56 . 37194+6 . 6959228*PL0G+269. 93097*SRLOG- .0971 79965*A-7 . 5379A IR 

94 


17 14*PL0G*SRL0G-152 . 13866*B* 

.57029937E-03*C+.058364795*A*SRLOG+2.15AIR 

95 

292755*PLOG*B+28.940926*D 

AIR 

96 


HR2l=-84. 008522+2. 5761318*PLOG+107.06196*SRLOG-.014352904*A-1.5313AIR 

97 


1 194*PL0G*SRL0G-32 . 316439*8 

AIR 

98 


XH=-61. 2053+114. 103*SRL0G-47.5532*B AIR 

99 


XH1=— 10 . 0* (PLOG—XH) 

AIR 

100 


IF (XH1-40.0) 260*290*290 

AIR 

101 

260 

IF (XH1+40.0) 270*280*280 

AIR 

102 

270 

TH=1.Q 

AIR 

103 


GO TO 300 

AIR 

104 

260 

TH=1 .0/(1. O+EXP ( XH1 ) ) 

AIR 

105 


GO TO 300 

AIR 

106 

290 

TH=0.Q 

AIR 

107 

300 

HRCAL=HR2l+ (HR22-HR21 ) *TH 

AIR 

108 


GO TO 340 

AIR 

109 

310 

IF (SRLOG-1.92) 320*320*330 

AIR 

110 


520 


lQ5*SRLOG*PLOG-27.641087*B+.58568839E-03*C+.0i6299962*A*SRLOG+.1407AIR 
23606*B*PL0G+4. 712261*0 AIR 

GO TO 340 AIR 

330 HRCAL=-114. 94796+4. 0045B3*PLOG+180.08427*SRLOG-.04l327787*A-4.0366AIR 
1535*PLOG*SRLOG-90.76006*B+.40320694E-03*C+.02436Q248*A*SRLOG+1.046AIR 


111 

112 

113 

114 
113 
116 
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22299*PL0G*B+15. 467004*0 AIR 

340 HR15=28. 160664-2. 2339873*PLOG-59.053694*SRLOG+. 054973544* A+3, 71832 AIR 
157*PLOG*SRLOG+40.986503*B-.4292698E-03*C-. 040726332* A*SRL0G-1. 3704 AIR 
2505*PLOG*B-8. 253645*0 AIK 

HRCAL=HR15+(HRCAL-HR15)*T15 AIR 


HRLOG=2.3025Q5l*HRCA|_ 
HR=EXP(HRL0G) 

HSHR/8. 1043525 
GO TO ( 350 *20*110) I 
350 GO TO (1050*360*570*360) 
Z=F(LOGP»LOG(S/R) ) 

360 X212=62. 91-41. 5*SRL0G 
X223=72. 945-45. 75*SRL0G 
XZ34=65 . 75-37 . 5*SRL0G 
X245=62. 92-32. 0*SRLOG 
X2121S-10 • 0* (PLOG-X212 ) 
X2231S-1 0 . 0* ( PL0G-X223 ) 
xZ341=-10.0*(PlOG-X234> 
X2451=-10.0*(PLOG-X245) 


AIR 

AIR 

AIR 

air 

AIR 

AIR 

AIR 

AIR 

AIR 

AIR 

AIR 

AIR 

AIR 

AIR 


2CAL2=519. 80374-23. 753514*PLOG-983.90729*SRLOG+.372P6957*A+30.0843AIR 
179*PLOG*SRLOG*620.04168*B-.21648826E-02*C-.23710079*A*SRLOG-9.4969AIR 
203*PL0G*B-129. 78921*0 AIR 

2CAL3=366.40b74-l5.5l7444*PLOG-647.42436*SRLOG+.l870l758*A+l8.0403AIR 
183*PLOG*SRLOG+379.59834*B-.87958438E-03*C-.10580129*A*SRLOG-5.1888AIR 

2254*PLOG*B-73.504269*D AIR 

2CAL4=516. 07331-16. 59277*PLOG-808.49823*SRLOG+.07l25b235*A+ib.5268AIR 
113*PLOG*SRLOG+418.45341*B+.94183347E-03*C-.019727817*A*5RLOG-3.994AIR 

2890b*PL0G*B-71. 038921*0 AIR 

IF < X2121— 40 . 0 ) 370*400*400 AIR 

370 IF (XZ121+40.0) 380.390*390 AIR 

380 TZ12=1.0 AIR 

GO TO 410 AIR 

390 TZ12=1.0/(1.U*EXP(XZ121> ) AIR 

GO TO 410 AIR 

400 1212=0.0 AIR 

410 IF ( XZ231-40 • 0 ) 420*450.450 AIR 

420 IF (XZ231+40.0) 430*440*440 AIR 

430 TZ23=1.0 AIR 

GO TO 46U AIR 

440 T223=1.0/(1.U+EXP(XZ231) ) AIK 

GO TO 460 AIR 

450 T223=0.0 AIR 

460 IF ( XZ341-40 . 0 ) 470*500*500 AIR 

470 IF ( XZ341+40 • 0 ) 480*490*490 AIR 

480 T234=l • 0 AIR 

GO TO 510 AIR 

490 T 234=1.0/ < 1 • 0+EXP ( XZ341 ) ) AIR 

GO TO 510 AIR 

500 T 234=0 . 0 AIR 

510 IF ( XZ451-40 . 0 ) 520*550*550 AIR 

520 IF (X2451+40.0) 530*540*540 AIR 

530 T 245-1.0 AIR 

GO TO 560 AIR 

540 T245=1.0/(1.U+EXP(X2451) ) AIR 

GO TO 560 AIR 

550 T245=0.0 AIR 

560 2CAl=1 . 0-M2CAL2-1 . 0) *TZ12+ <ZCA|_3-ZCAL2 ) *TZ23«MZCAL4-ZCAL3 > *TZ34+ ( 4AIR 


1 . 0-ZCAL4 ) *TZh5 


AIR 


117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 
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ZCAL=1.0+<2CAL-1.0)*T15 AIR 175 

Z=ZCAL AIR 175 

IF <J,£G,4) 570.1050 AIR 177 

LOG<RHO/RHOA)=F<LOGP»LOG<S/R>) AIR 178 

570 XR12=-16. 5527+57. 45*SRL0G-30.8036*B AIR 179 

XR23=499. 544-938. 91*SRLOG+609,028*B-135. 995*0 AIR 180 

XR34=360. 507-634. 538*SRL0G*389. 174*6-82.4653*0 AIR 181 

XR45=489» 628-458 «5*SRL0G+1 06 .25*8 AIR 182 

XRl21=-lG.O*lPuOG-XR12> AIR 183 

XR231=-1Q.Q*(PL0G-XR23) AIR 184 

XR341=-1Q.O*(PLOG-XR34) AIR 185 

xR451=-10.Q*(PlOG-XR45> AIR 186 

IF (XR121-40.0) 580.610.610 AIR 187 

580 IF (XR121+40.0) 590.600.600 AIR 188 

590 TR12=1.0 AIR 189 

GO TO 620 AIR 190 

600 TR12=1.0/<1.0+£XP<XR121>> AIR 191 

GO TO 620 AIR 192 

610 TR12=0.0 AIR 193 

620 IF (XR231-40.0) 630.660*660 AIR 194 

630 IF (XR231+40.Q) 640.650.650 AIR 195 

640 TR23=1.0 AIR 196 

GO TO 670 AIR 197 

650 TR23=1.0/(1.0+EXP<XR231>> AIR 198 

GO TO 670 AIR 199 

660 TR23=0.0 AIR 200 

670 IF ( XR341— 40 . 0 ) 680.710.710 AIR 201 

680 IF (XR341+40.0) 690.700.700 AIR 202 

690 TR34=1.0 AIR 203 

GO TO 720 AIR 204 

700 TR34=1.0/<1.u+EXP(XR341>> AIR 205 

GO TO 720 AIR 206 

710 TR34=0.0 AIR 207 

720 IF (XR451— 40.0) 730.760.760 AIR 208 

730 IF (XR45I+40.0) 740.750.750 AIR 209 

740 TR45=1.0 AIR 210 

GO TO 770 AIR 211 

750 TR45=1.0/(1.0+EXP(XR45in AIR 212 

GO TO 770 AIR 213 

760 TR45=0.0 AIR 214 

770 RHCLl=15.951867-.00228295*PLOG-15.994242*SRLOG+,65l87267e-02*A+.53AIR 215 
1U79665*PLOG*SRLOG*3.175974*B AIR 216 

HHCL2=1541. 1666-63. 93035*PLOG-2993.1662*SRLOG+.935457*A+84.30375*SAIR 217 
1RL0G*PL0G+1938. 7061*6-. 004746016*C-.6128404*A*SRU0G-27.422666*B*PLAIR 218 
20G-419.0881*L« AIR 219 

RHCL3=427. 4745-18. 126622*PL0G-765.47626*SRL0G+.29343l69*A+22.92687AIR 220 
l7*PLOG*SRLQG+456.717*B-.i7033404E-02*C-.18068309*A*SRLOe-6.9l43617AIR 221 
2*B*PL0G-91. 131851*0 AIR 222 

RHCL4=206. 23144-8. 2270278*PLOG-329.5465*SRLOG+,1324191*A+9,8884165AIR 223 
1 *PLOG*$Rt_OG+l 75. Q 3931*8- • 10178454E-02*C-» 07654371 *A*SRL0G-2, 692014 AIR 224 
24*B*PL0G-31. 237834*0 AIR 225 

RHCL5=-399. 52358+12. 899477*PLOG+4I1.64144*SRLOG-.097694919*A-6.220AIR 226 
14477*PL0G*SRL0G-106.6733*B AIR 227 

RHCAL=RHCH+(RHCL2-RHCLl)*TRi2+<RHCL3-RHCL2)*TR23+|RHCL4-RHCL3)*TRAIR 228 
134+ (RHCL5-RHCL4) *TR45 AIR 229 

RH15=-79, 282533+6. 3537078*PLOG+l79.2272l*SRLOG-.12607098*A-8.40i3lAlR 230 
122*PL0G*SRL0G-l 29. 95269*B+.10037437E-02*C+. 09418551 1 * A*SRL0G+3 • 125AIR 231 
26966*PLOG*B+30. 203862*0 AIR 232 
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RHCAL=RH15+(RHCAL-RH15)*T15 


AIR 

233 


RHRALG=2 . 3Q25851*RHCAL 


AIR 

234 


khorha=exP(RhRalg> 


AIR 

235 


KHO=2.50742E-3*RHORHA 


AIR 

236 


IF (J.NE.4) GO TO 1050 


AIR 

237 


TR = F(LOG(P)»Z>» A/AO = F <LOG(P ) .LOG < S/R > > 


AIR 

238 


T= (EXP ( ( PLOG-RHCAL > *2.3025851 > *273. 15) /ZCAL 


air 

239 


TR=1.8*T 


AIR 

240 


IF (T-2100.0) 780 » 780 . 830 


AIR 

241 

780 

IF (T-1500.0) 800 » 800 . 790 


AIR 

242 

790 

IF (PLOG+1.0) 830*830.800 


AIR 

243 

800 

CONlsSQRT (T/273.15) 


AIR 

244 


IF (T-273.15) 810.810.820 


AIK 

245 

610 

A0A0=C0N1 


air 

246 


GO TO 1040 


AIR 

247 

620 

AOAOs-O . O7530O8+CON1* ( 1 . 12644-0 . 0552696*CONl ) 


AIR 

248 


GO TO 1040 


AIR 

249 

630 

XA12=635. 054-1220. 46*SRLOG+803. 882*8-180. 845*D 


AIR 

250 


XA23=373. 702-663. 358*SRLOG4408. 854*8-86. 8056*0 


AIR 

251 


XA34=1703. 78-2602. 97*SRL0G*1337.93*B-231. 422*0 


AIR 

252 


XA22=1043. 37-1820. 34*SRLOG+1076. 36*8-215. 445*D 


air 

253 


XA121=-10.0*(PLOG-XA12) 


AIR 

254 


XA231=-10.0*(PLOG-XA23) 


AIR 

255 


XA341=-10.0*(PLOG-XA34) 


AIR 

256 


XA221=-10.0*(PLOG-XA22) 


AIR 

257 


Al=-4409. 6241+196. 82259*PL0G+8746.4634*SRL0G-3 

. 1650299* A-262 

. 32947A IR 

258 


1*PLOG*SRLOG-5786.449*B+. 020004186*0+2. 1429825*A*SRLOg+87.589029*PLA!R 

259 


20G*B+1277.67i8*0 


AIR 

260 


A21=-1814.5H7-i-86.096078*PLOG+3315.6099*SRLOG- 

1.7593o34*A-lo7.2534AIR 

261 


1*PLOG*SRlOG-2O23.2O1*0+. 016287679*0+1. 1398134*A*SRLOg+33.659607*PLAIR 

262 


20G*B+413. 41945*0 


AIR 

263 


A22=2651 .2944-81 .405596*PLOG-3099.0064*SRLOG+. 

69752668* A +48. 

062596AIR 

264 


1*PLOG*SRLOG+907. 70889*8 


AIR 

265 


IF (XA221-40.0) 850*840.840 


AIR 

266 

640 

TA22=0.0 


AIR 

267 


GO TO 880 


AIR 

268 

050 

IF (XA221+40.0) 860.860.870 


AIR 

269 

060 

TA22=1.0 


AIR 

270 


GO TO 880 


AIR 

271 

070 

T A22=l .0/(1. 0+EXP ( XA221 ) ) 


AIR 

272 

080 

A2=A21+ ( A22-A21 ) *TA22 


AIR 

273 


A3=-3217. 8037+195. 34964*PL0G+5348.2l43*SRL0G-4 

• 6268475* A-221 

.12705AIR 

274 


1*PUOG*SRlOG-2970. 6649*8+. 044614358*0+2. 7079177*A*SRLOG+63.042803*PAIR 

275 


2L0G*B+553. 12007*0 

6534057*A+246, 

air 

276 


A4=16976. 939-476, 10242*PLOG-l7445.3l5*SRLOG+3. 

41125*AIR 

277 


1PL0G*SRL0G+4486.3118*B 


air 

278 


IF (XA121-40.0) 900.890.890 


AIR 

279 

090 

I A12=q.O 


AIR 

280 


GO TO 930 


AIR 

281 

900 

IF UA121+40.0) 910.910.920 


air 

282 

910 

TA12=1.0 


AIR 

283 


GO TO 930 


AIR 

284 

920 

TA12=1.0/(1.0+EXP<XA121) ) 


AIR 

205 

930 

IF (XA231-40.0) 950.940.940 


AIR 

286 

940 

TA23=0.0 


AIR 

287 


GO TO 980 


AIR 

288 

950 

IF (XA231+40.0) 960.960.970 


AIR 

289 

960 

TA23=1,0 


AIR 

290 
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GO TO 980 AIR 291 

970 TA23=i.0/(1.0+EXP(XA23in AIR 292 

980 IF (XA341-40.0) 1000»990»990 AIR 293 

990 TA34=0.0 AIR 294 

GO TO 1030 AIR 295 

1000 IF (XA341+40.0) 1010 » 1010 » 1020 AIR 296 

1010 TA34=1.0 AIR 297 

GO TO 1030 AIR 298 

1020 TA34=1.0/<1.0+EXPIXA341> > AIR 299 

1030 A0A0=A1+(A2-A1)*TA12+<A3-A2)*TA23+U4-A3)*TA34 AIR 300 

1040 CONTINUE AIR 301 

CS=1U86.98*A0A0 AIR 302 

1 050 RETURN AIR 303 

C AIR 304 

1060 FORMAT ( 35H ITERATION LIMIT EXCEEDED IN S-L00P» 3E15.4 ) AIR 305 

1070 FORMAT ( 35H ITERATION LIMIT EXCEEDED IN P-L00P,4E15.4 > AIR 306 

t-ND AIR 307- 
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SUBROUT I NE BUCKNG < E » F 7 » FC R , FC Y ♦ FTU * NCR ) 

DE=£* <1.-1. /<!,♦. 4286* <FCR/F7)**< NCR-1) )) 

IF ( .001«-E.GE.ABS(DE) ) GO TO 20 

tTA0=0.7 

£TAA=F7/FCR 

DO 10 ITfcRNOsl f 30 

ETA1=ETAA*( ( 1 ./ETAO-l . ) *2 ,333) ** ( 1 •/ (FLOAT (NCR)-l , ) ) 

UETAsETAI-ETaO 

IF CETAl.GT.l.) ETA1=1. 

IF <.01*ETA0,GE.ABS(OETA>> GO TO 30 
LTA0=0.5*(ETA0+ETA1) 

10 CONTINUE 
GO TO 30 
20 ETA1=1. 

30 FCR=FCR*ETA1 

IF <1.1*FCY.GE.FCR) GO TO 40 
FCRsl.l*FCY 

40 IF <FTU.GE.FCR) GO TO 50 
FCRsFTU 
50 RETURN 
END 


BCK 1 
BCK 2 
BCK 3 
BCK 4 
BCK 5 
BCK 6 
BCK 7 
BCK 8 
BCK 9 
BCK 10 
BCK 11 
BCK 12 
BCK 13 
BCK 14 
BCK 15 
BCK 16 
BCK 17 
BCK 18 
BCK 19 
BCK 20 
BCK 21- 
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SUBROUTINE FLOWF(IGO) 

COMMON/FOT/ AM2 ♦ AMUl ♦ £ I ♦ EMU ♦ RHOE ♦ TE ♦ VE ♦ W I ( 9 ) ♦ XMI , XM2 ♦ X V I ♦ YVI , 
1 PS ♦ P Y ♦ RHOS ♦ RHOr ♦ SMU ♦ TMU ♦ YMU ♦ PO 
COMMON/T I FO/ 1 EQOS ♦ I TR AS 


flf 

flf 

flf 

flf 

FLF 


C*****ENTHALPY FUNCTIONS 

FENTL(T) =2.2664+0. 2272*T+0,1157lE-4*T*T+0.23676E-9*T**3 
FTEMP ( E > =1 7 . 699+4 . 0675+E-. 83884E-4*E*E- , 3495E~6*£**3 
C***+*FRE£STREmM properties 

CSI=49.01*SQRT(TI) 

AMIrVl/CSl 

AM2=AMI*APl 

VI2=VI**2 

AMUI=FMUT(PI*TI) 

RYIzVI+RhOI/AMuI 

AIISFENTL(TI) 

ST IsA I I+V 12/50061,5 
P0=PI*(l,+AM2/5,)**3.5 

IF <STI.GT.705.0.AND.IEGOS.LT,2) GO TO 10 
T0=TI*(1.«-Q.2*AM2) 

GO TO 20 

10 CALL AIR(2»4»PO#SO»STI»Z*RHOOf T0»CS0) 

20 XVI=vI*SIN(AOF£) 

YVI=Vl+COS(AOFE> 

XMI=XVI/CSI 

XM2=XMI*XMI 

XM3sXMI*XM2 

XV2=XVI*XVI 

IF ( IWALT ,EO, 1 ) GO TO 30 
JW5NCOLM 
GO TO 40 
30 UW=1 

40 DO 50 I=1»JW 

IF (NMAT.EG.O) TEMPI 1 , 1 )=540. 

50 M I ( X > sFENTL ( TEMP ( I ♦ 1 ) ) 

GO TO (60»310»150»150»310»310*310) ICONF 
60 IF (AOFE.GT, 0.524) GO TO 310 
IF (AOFE.LF.O) GO TO. 80 
IF (AMI, GT. 1.0) GO TO 150 
C*#***FLAT PLATE 


1 

2 

3 

4 

5 


COMMON 

AL 

♦ALPHA (99) 

♦ALT ( 99) 

»ame 

♦ AMI 

flf 

6 

1 ♦ aofa 

♦ AOFE 

♦ AROO 

♦ AS 

• AX(9»ll»9)»Ar<9»Hf 

9) flf 

7 

2# BATA 

♦be 

♦BETA (99) 

♦ BF 

♦ bfl 

♦ BL 

Flf 

8 

3 ♦ DELTA 

♦ DlAM 

♦DIST19) 

♦ DST 

♦E(20^99> 

♦eall 

flf 

9 

4*EAT(20,99> 

*£DOT(20»99) »EMIS(9) 

♦ FACC 

♦FCU(20»99) 

♦FCY(20^99)FLF 

10 

5*FN£T (20 ) 

♦fSU(20#99) 

♦FT(20) 

♦FTU(20>99) 

♦ FVE 

♦ F07 

flf 

11 

6»G(20»99> 

♦ hh 

♦ HINS 

♦HJNSO (99) 

♦ ICONF 

♦ILINKO 

flf 

12 

7» IQINP 

♦ ITURB 

♦ IWALT 

♦MAT (9^9) 

♦ MPT ( 9 ♦ 9 ) 

♦MR(9#18) 

flf 

13 

8.NC0LM 

♦ NCR 

♦ NCRC 

♦ NF 

♦NI ( 18) 

♦ NINS 

FLF 

14 

9»NMAT 

♦ nmin 

»NPRT 

♦ NPSG 

♦NR ( 18 ) 

♦ NRSG 

flf 

15 

t.NSEG 

♦ntraj 

♦ N33 

♦ PE 

♦ PHI 

♦ PI 

FLF 

16 

S»PINP(99) 

♦QC0NL(9) 

♦ OCONT ( 9 ) 

♦ Q I NP ( 99 ) 

♦QNET(9> 

♦RH0(9) 

flf 

17 

t.RHOl 

♦ RYE 

♦ RYI 

♦ SL 

♦ SLS 

♦STAAT 

flf 

18 

*»ST1 

♦STOOP 

♦T (20^99) 

♦TALLW (9) 

♦ T AMP ( 9 ♦ 9 ) 

♦ TAU 

flf 

19 

S * TCl 

♦TEMP (9^9) 

♦THETA 

♦ TI 

♦TIME (99) 

♦ TINS 

flf 

20 

$*TlNSQ(99) 

♦ UF 

♦ VFACT ( 9^ 18 ) ♦ Vi 

♦VINF(99) 

♦wrote 

flf 

21 

$ ♦ XEM1S 

♦XSTG(99) 

♦ XX (20 ) 

♦ Y(9) 

♦ZZ (20 ) 


FLF 

22 


FLF 23 
FLF 24 
FLF 25 
FLF 26 
FLF 27 
FLF 28 
FLF 29 
FLF 30 
FLF 31 
FLF 32 
FLF 33 
FLF 34 
FLF 35 
FLF 36 
FLF 37 
FLF 38 
FLF 39 
FLF 40 
FLF 41 
FLF 42 
FLF 43 
FLF 44 
FLF 45 
FLF 46 
FLF 47 
FLF 48 
FLF 49 
FLF 50 
FLF 51 
FLF 52 
FLF 53 
FLF 54 
FLF 55 
FLF 56 
FLF 57 
FLF 58 
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70 

PE=PI 

FLF 

59 


VE=VI 

FLF 

60 


TE=TI 

FLF 

61 


ei=aii 

FLF 

62 


AMEsAMI 

FLF 

63 


tMUsAMUI 

FLF 

64 


khoesrhoi 

FLF 

65 


GO TO 420 

FLF 

66 

C*****PRANDTL MEYER EXPANSION 

FLF 

67 

80 

BETAIsSORT{AM2-1.0) 

FLF 

68 


UNIsl40.34601*ATAN(.40825*8ETAl>-57.29578*ATAN(BETAl) 

FLF 

69 


IF (AOFE+. 05) 90,90,70 

FLF 

70 

90 

UNE=UNl-b7. 29578* AOFE 

FLF 

71 


IF (UNE-50,0) 100*100,110 

FLF 

72 

100 

AME=-26. 301065/ ( UNE-81 . 77828 ) ♦ . 78959002+. 02791663+UNE 

FLF 

73 


GO TO 140 

FLF 

74 

110 

IF (UNE-102.32) 120*120,130 

FLF 

75 

120 

AMEs- 280 . 09435/ (UNE-130. 19996)-. 8941124148. 2845071E-03*UNE 

FLF 

76 


GO TO 140 

FLF 

77 

130 

AME=-284. 84684/ CUNE-130. 43433) -1. 0199074+8. 6S03698E“03*UNE 

FLF 

78 

140 

TR=(5.0+AM2)/(5.0+AME**2) 

FLF 

79 


PR=TR**3.5 

FLF 

80 


YR= ( AME/AMI ) *SQRT ( TR ) 

FLF 

81 


PE=PR*PI 

FLF 

82 


TE=TK*TI 

FLF 

83 


VE=VR*VI 

FLF 

84 


EI=FENTUTE) 

FLF 

85 


RHOE=PE/ ( 1714.87*TE) 

FLF 

86 


AME=VE/(49.01*S0RT(TE)) 

FLF 

87 


GO TO 420 

FLF 

88 

150 

IF UMI.LE.0.05) GO TO 70 

FLF 

89 


RMISXVI/1086.0 

FLF 

90 


RM2=RMI*RMI 

FLF 

91 


RM3=RMI*RM2 

FLF 

92 


IF (IC0NF.NE.4) GO TO 240 

FLF 

93 

C*****WEOGfc 

FLF 

94 


IF (XMI.GT.8.0) GO TO 160 

FLF 

95 


EI=AII*( .9167+.3203*XMI+.236*XM2-.4484E-3*XM3) 

FLF 

96 


GO TO 170 

FLF 

97 

160 

EI=AII*(1.107-,2209*XMI+.3644*XM2-8.462E-3*XM3) 

FLF 

98 

170 

IF (XMI.GT.1.8) GO TO 180 

FLF 

99 


PE=Pl*(1.04l+.693*XMI+1.889*XM2-,066l*XM3) 

FLF 

100 


GO TO 190 

FLF 

101 

180 

PEsPI*(-2.32+4,045*XMI+1.036*XM2+,Ol61*XM3) 

FLF 

102 

190 

IF (RMI.GE.0.6) GO TO 200 

FLF 

103 


VR=. 1923+1. 404*RMI+1.147*RM2+,3361*RM3 

FLF 

104 


GO TO 220 

FLF 

105 

200 

IF (RMI.GT.6.0) GO TO 210 

FLF 

106 


VRS.5958+.4494*RMI+1.838*RM2-.0331»RM3 

FLF 

107 


GO TO 220 

FLF 

108 

210 

VR=76. 03-19. 58*RMI+3.13*RM2-.05054*RM3 

FLF 

109 

220 

VE2=VI2-1.0E6*VR 

FLF 

110 


IF (VE2.GT.0.) GO TO 230 

FLF 

111 


160=1 

FLF 

112 


RETURN 

FLF 

113 

230 

VE-SORT t VE2) 

FLF 

114 


GO TO 340 

FLF 

115 

C*****CONE 

FLF 

116 
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240 IF (XMI.GT.8.0) GO TO 250 

EI=AI I* ( 1 . 03+ . 0827*XMI+ ,2354*XM2-6 . 956E-4*XM3> 

GO TO 260 

250 E I=AI I * ( 1 . 1 06-, 3685*XMI+ • 3466*XM2-7 . 766E-3+XM3 ) 

260 IF (XMI.GE.1.5) GO TO 270 

PE=PI*(1.007+.3816*XMI+1.522*XM2-.1593*XM3) 

GO TO 290 

270 IF (XMI.GE.5.0) GO TO 280 

PE=PI*(.2397+1.161*XMI+1.06*XM2+.0489*XM3) 

GO TO 290 

280 PE=PI*(-3.i82+4.177*XMI+.8373*XM2+.0216*XM3) 

290 IF (RMI.GE.4.4) GO TO 300 

VR=. 157+ . 75*RMi ♦ . 9861*RM2+ . 06944+RM3 
GO TO 220 

300 VR=6. 187-1. 038*RMI+1.414*RM2-.0062*RM3 
GO TO 220 

C*****HIGH ANGLE OF ATTACK 

310 IF (AMI. GT. 1.0) GO TO 320 
PE=PI+RHOI+Xv2 
GO TO 330 

320 SA=l.il4*AOFt+.977/AM2 

IF (SA.GT. 1.5708) SAsi.5708 
SMI=AMI*SIN(SA) 

CE=SIN( AoFE)**2 

CMS 1. 833* ( 1.-.455/AM2) 

PEspi * ( 1 , + . 7*AM2*CE*CM ) 

ESSAII+XV2/50061.5 
IF (SMI. GT. 1.0) GO TO 370 
330 VEsYVI 

EI-STI-VE+VE/50061 .5 
340 IF (El. GT. 1300.) GO TO 350 
TE=FTEMP(EI) 

RH0EsPE/(1714.87*TE> 

AMEsvE/ ( 49. 01+SQRT (TE) ) 

GO TO 360 

350 CALL AIR(2»4, PE. S. EI»Z»RHOE#TE.CS> 

AMEsvE/CS 

360 IF (ICONF.EQ.l) GO TO 410 

IF ( ICONF . EQ.3.0R. ICONF .E0.4) GO TO 420 
PSSPI*(1,+0.2*XM2)**3.5 
PYSPO 
GO TO 380 
370 VUSVI*SIN(SA) 

SM2=SMI*SMI 

IF (STI.GT. 705.0. ANO.IEQOS.LT. 2) GO TO 400 
PYSPO* ( 6 . * AM2/ ( AM2+5 . ) ) **3 . 5* ( 6 , / ( 7 . * AM2-1 • ) ) **2 • 5 
PSSPO* ( 6 . *SM2/ ( SM2+5 . ) ) **3 . 5* ( 6. / (7 . *SM2-1 . ) ) **2 . 5 
PEYsPE/PS 

AMEsSQRT ( 5 . * ( 1 . /PET** . 286-1 . ) ) 

TESTQ*PEY**.286 

EI=FENTL(TE) 

VESAME*49.01*SQRT<TE) 

IF (ICONF.EQ.l) GO TO 390 

PS=PI*(1.2*XM2)**3.5*(6./(7.*XM2-l.))**2.5 
380 TS=TI*(1.+0.2*XM2) 

RH0S=PS/ ( 1714.87*TS) 

RHOY=PY/(1714.87*TO) 

390 RHOEsPE/ (1714. 87*TE ) 


FLF 117 
FLF 118 
FLF 119 
FLF 120 
FLF 121 
FLF 122 
FLF 123 
FLF 124 
FLF 125 
FLF 126 
FLF 127 
FLF 128 
FLF 129 
FLF 130 
FLF 131 
FLF 132 
FLF 133 
FLF 134 
FLF 135 
FLF 136 
FLF 137 
FLF 138 
FLF 139 
FLF 140 
FLF 141 
FLF 142 
FLF 143 
FLF 144 
FLF 145 
FLF 146 
FLF 147 
FLF 148 
FLF 149 
FLF 150 
FLF 151 
FLF 152 
FLF 153 
FLF 154 
FLF 155 
FLF 156 
FLF 157 
FLF 158 
FLF 159 
FLF 160 
FLF 161 
FLF 162 
FLF 163 
FLF 164 
FLF 165 
FLF 166 
FLF 167 
FLF 168 
FLF 169 
FLF 170 
FLF 171 
FLF 172 
FLF 173 
FLF 174 
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60 TO 410 

400 CALL SHOCK ( A 1 1 »PI #PY#RHOl r VU» S ) 

CALL AlRtl#4fPEfS»El#2»RH0E»TE.CS) 
IF (LI.6T.STI) £I=STI 
VESS0RT( (STI-EI)*50061,5) 

AME=V£/CS 

IF (ICONF.E0.1) 60 TO 410 
CALL SH0CK(AI!,PI»PY#RH0I»VI'S) 

CALL AIR (3»4»PY*S*STI #Z»RHOY »TO#CS) 
CALL SHOCK ( AI I »PI #PS»RHOI »XVI »S) 
CALL AIR ( 3»4»PS»S»ES» Z»RHOS# TS»CS) ... 
410 IF (1C0NF.EQ.1) 60 TO 420 
SMUsFMUT(PS»TS) 

TMUSFMUT(PO.TO) 

ymu=fmut(Py» ro) 

420 £MU=FMUT(PE» rE) 

RETURN 

END 


FLF 175 
FLF 176 
FLF 177 
FLF 178 
FLF 179 
FLF 180 
FLF 181 
FLF 182 
FLF 183 
FLF 184 
FLF 185 
FLF 186 
FLF 187 
FLF 188 
FLF 189 
FLF 190 
FLF 191 
FLF 192- 
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FUNCTION FMUT<P»T) FMT 1 

C VISCOSITY FMT 2 

G8=AL0G1Q<P/2U6.) FMT 3 

HHST/1800. FMT 4 

IF (HH.GT.3.5) GO TO 10 FMT 5 

£=1. FMT 6 

GO TO 20 FMT 7 

10 AsHH* { 1 « - • 125*GG ) -6 . 5 FMT 8 

B=1.5+.125*GG FMT 9 

C=1.*.023*HH*<1,+TANH<A/B) ) FMT 10 

D=<HH-l4.5-1.5*GG)/(.9+.l*GG) FMT 11 

E=C*(1,-EXP<D) J FMT 12 

IF (£,LT .0.0b) E=0.05 FMT 13 

20 F=2.27E-8*T*+1.5/(T+198.6) FMT 14 

FMUTsF*E FMT 15 

RETURN FMT 16 

END FMT 17 
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SUBROUTINE MSMIN ( A »B > J»K ) MSN 1 

IF (B-A) 1Q»20,2U MSN 2 

10 A=B MSN 3 

K=J MSN 4 

20 RETURN MSN 5 

END MSN 6- 
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SUBROUTINE OFFCL 




OFL 

1 

c 





OFL 

2 


COMMON/FOT/ AM2 t AMUl * E I # EMU ( RHOE , 

TE(VE(WK9) 

(XMI,XM2(XVI 

(YVI, 

OFL 

3 


IPS # PY » RHOS » RHOY » SMU • TMU ♦ YMU # PO 




OFL 

4 


COMMON/T IFO/ IEQOS r ITR AS 




OFL 

5 


COMMON/TPS/ A ( 20 ) ( Q ( 9 ) »R»X(9) 




OFL 

6 


COMMON AL • ALPHA (99) 

(Alt (99) 

(AME 

(AMI 

OFL 

7 


1 r AOFA » AOFE .AROD 

(AS 

(AX(9(H(9)(AY(9»11»9)0FL 

8 


2»BATA tUE ♦ BETA (99) 

rBF 

rBFL 

(BL 

OFL 

9 


3 (DELTA »DIAM (DIST(9) 

rOST 

(E(20(99) 

•eall 

OFL 

10 


4(EAT (20(99) »EDOT (20(99) (EMIS(9) 

(FACC 

(FCU(20»99) 

(FCY(20( 

99) OFL 

11 


5(FNET<20) »FSU( 20.99) (FT (20) 

rFTU(20(99) (FVE 

(F07 

OFL 

12 


6(6(20(99) (HH (HXNS 

(HINSD(99) 

(ICONF 

(ILINKO 

OFL 

13 


7 ( IOINP (ITURB (IWALT 

(MAT (9(9) 

(MPT (9 (9) 

(MR (9rld) OFL 

14 


8»NC0LM (NCR (NCRC 

(NF 

(NI { 18) 

(NINS 

OFL 

15 


9(NMAT (NMIN (NPRT 

(NPS6 

(NR ( 18) 

#NRS6 

OFL 

16 


S (NSEG (NTRAJ (N33 

(PE 

(PHI 

(PI 

OFL 

17 


$(PINP(99> (OCONL (9) (0C0NT(9) 

(Q!NP(99) 

(0NET(9) 

(RHO( 9) 

OFL 

18 


*(RMOI (RYE (RYI 

rSL 

(SLS 

(STAAT 

OFL 

19 


SrSTl (STOOP (T(20(99) 

rTALLM(9) 

(TAMP(9»9) 

(TAU 

OFL 

20 


Sr TCI (TEMP(9(9I (THETA 

#Ti 

(TIME (99) 

(TINS 

OFL 

21 


SrTlNSD(99) rUF . VFACT (9( 18) » VI 

rVINF(99) 

(WROTE 

OFL 

22 


S ( XEMIS r XSTG ( 99) (XX(20) 

(V (9) 

( ZZ ( 20 ) 


OFL 

23 

c 





OFL 

24 

C*****ENTHALPY FUNCTIONS 




OFL 

25 


FENTL (T ) =2 .2864+0 .2272*T+0. 1157lE-4*T*T+0 . 23676E-9*T**3 

OFL 

26 


FTEMP ( E ) =1 7 . 899+4 . 0675*E- . 83884E 

-4*E*E-.3495E-6*E**3 


OFL 

27 

C*****LEE*S DISTRIBUTION 

( ■ 



OFL 

28 


PHSPHI/57.29S7795 




OFL 

29 


VE=.362*XVI*S0RT((l.+5./XMl)*(l. 

-,715/XMI) )*SIN(PH) 


OFL 

30 


VE=SQRT ( VE*VE+YVI*YVI ) 




OFL 

31 


EI=STI-VE*VE/50061.5 




OFL 

32 


CE=SIN(A0FE)**2 




OFL 

33 


CM=j .833* ( 1.-.455/AM2) 




OFL 

34 


PE=PI*(l.+,7+AM2*CE*CM) 




OFL 

35 


IF (EI.6T.1300.) 60 TO 10 




OFL 

36 


TESFTEMP(EI) 




OFL 

37 


RHOEsPE/ ( 1714.87*TE) 




OFL 

38 


AMEsVE/(49.0l*SQRT(TE) ) 




OFL 

39 


SO TO 20 




OFL 

40 


10 CALL AIR(2(4(PE(S(EI'Z(RH0E(TErCS) 



OFL 

41 


AMESVE/CS 




OFL 

42 


20 P2=PH*PH 




OFL 

43 


P5=Ph*P2*P2 




OFL 

44 


EMUsFMUT(PE.TE) 




OFL 

45 


A=-.0066S*PS 




OFL 

46 


bs-.0038*P5 




OFL 

47 


C=SIN(PH)**2 




OFL 

48 


D=SIN(2.*PH)*PH-C 




OFL 

49 


HRS ( 1 , 84*C+A ) *PH/S9RT ( . 5* ( . 84*D+P2* ( B+l . 16 ) ) ) 


OFL 

50 


Q=Q*HR 




OFL 

51 


RETURN 




OFL 

52 


ENO 




OFL 

53- 
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subroutine panel 




PNL 

1 

c 





PNL 

2 


COMMON /FLAGS/ IFIRST» ISTRES* IFATIG* IWTCST 


PNL 

3 


COMMON /LINK/ NSECT#TC*TS»TSKIN1» 

TSKlN2,TINSl»TINS2*T!NS3»XnST 

PNL 

4 


COMMON /MOMENT/ AII*PMI 




PNL 

5 


COMMON/TPS/ A ( 20 )» Q ( 9 ) »R*X(9) 




PNL 

6 


COMMON AL * ALPHA (99) 

» ALT ( 99) 

»ame 

* AMJ 

PNL 

7 


1 * AOFA * AOFE * AROD 

* AS 

»Ax(9*11*9)*AY(9»11» 

9) PNL 

8 


2»BATA »BE * BETA (99) 

»BF 

»BFL 

*BL 

PNL 

9 


3* DELTA *DIAM *DIST(9) 

»DST 

*E(20*99) 

*eall 

PNL 

10 


4 * EAT ( 20 * 99 ) * EDOT (20*99) *EMIS(9> 

»FACC 

*FCU(20»99) 

» FC Y ( 20 *99 ) PNL 

11 


5tFNET(20) *FSU(20*99)»FT<20) 

»FTU(20*99) 

»FVE 

* F07 

PNL 

12 


6*6(20*99) » HH *HINS 

*HXNSD(99) 

* ICONF 

» ILlNKO 

PNL 

13 


7 » IQ1NP *ITURB tlWALT 

*MAT (9*9) 

*MPT(9»9) 

*MR (9* 18) 

PNL 

14 


8»NC0LM * NCR *NCRC 

»NF 

*NI ( 18) 

»NINs 

PNL 

15 


9» nmat »nmin *nprt 

*NPS6 

*NR ( 18 ) 

»NRSG 

PNL 

16 


S*NSEG * NTRAJ *N33 

*PE 

»PHI 

*PI 

PNL 

17 


**PlNP<99> *WC0NL(9) »QC0NT(9) 

»QINP(99) 

»QNET(9> 

» RHO ( 9 ) 

PNL 

18 


S»RHQI » RYE ♦ RYI 

»SL 

»SLS 

*staat 

PNL 

19 


*»STI » STOOP *T(2Q»99) 

*TALLW (9) 

»TAMP(9»9) 

»TAU 

PNL 

20 


**TCl * TEMP (9* 9) , THETA 

*TI 

» T I ME ( 99 ) 

♦ TINS 

PNL 

21 


S»TlNSD(99) »UF *VFACT(9*18) *Vl 

»VINF(99) 

* WROTE 

PNL 

22 


S»XEMIS » XSTG ( 99 ) »XX(20) 

* Y ( 9) 

* ZZ (20 ) 


PNL 

23 


DIMENSION ALPHE (20 ) 




PNL 

24 


EQUIVALENCE (TB*BF>* (TF*TS)» (TRfBFL) 



PNL 

25 

c 





PNL 

26 


60 TO (10*40*70*100*130*160*210) 

NSECT 



PNL 

27 

C*****C0NFIGURATI0n NO 1 




PNL 

28 


10 RHR=(R-Hh)/R 




PNL 

29 


THETAsACOS(RHR) 




PNL 

30 


6F=AS-2.*R*SIN(THETA) 




PNL 

31 


TC1=TC*SIN (THETA) /THETA 




PNL 

32 


A(1)=.1*(AS-BF)*TS 




PNL 

33 


XX(1)=.05*(AS-8F) 




PNL 

34 


ZZ(1)=.5*TS 




PNL 

35 


DO 20 1=2*5 




PNL 

36 


A( I )=A( 1 ) 




PNL 

37 


XX(I)ZXX(I-1)+2.*XXU) 




PNL 

38 


20 Z2( I ) sZZ ( 1 ) 




PNL 

39 


A ( 6 ) = . 25*BF* { TS+TC ) 




PNL 

40 


XX ( 6 ) s . 5*AS- . 375*BF 




PNL 

41 


ZZ(6)s.5*(TS+TC) 




PNL 

42 


A(7)=A(6) 




PNL 

43 


XX ( 7 ) SXX (6)4# 25*BF 




PNL 

44 


ZZ( 7) =ZZ (6) 




PNL 

45 


ALPHE ( 1 ) =THETA*13 . /14 . 




PNL 

46 


ALPHSALPHE(I) 




PNL 

47 


A(fl)sR*THETA*TCl/7. 




PNL 

48 


XX(8)=R*SIN(ALPH) 




PNL 

49 


ZZ ( 8 ) sR*C0S ( ALPH) -R4HH+TS 




PNL 

50 


DO 30 ls9'14 




PNL 

51 


ALPHE ( I -7 > SALPHE ( X -8 > -THETA/7 . 




PtfL 

52 


ALPH-ALPHE ( 1-7 ) 




PNL - 

53 


A(I)=A(8) 




PNL 

54 


XX ( I ) sR*SIN( ALPH) 




PNL 

55 


30 ZZ(I)=R*COS(ALPH)-R*HH4-TS 




PNL 

56 


GO TG 190 




PNL 

57 

C*****CONf I GURATION no 2 




PNL 

58 
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40 THETA=ATaN(HH/(. 5*AS-BF) ) 
BW=HH/SlN(THETA) 
DX1=.1*(AS-BF) 

A < 1 ) =DX1*TS 
XX(l)=.5*Dxl 
2ZI 1>=.5*TS 
UO 50 1=2*5 
A(I)=A(1) 
XX(X)=XXU-i)4DXi 
50 ZZ<I)=ZZ<1) 

A(6)=.25*8F*(TS+TC) 

XX(6)=.5*AS-.375*BF 

ZZ(6>=.5*(TS+TC) 

A ( 7) =A(6) 

XX<7)=XX (6I+»25*8F 
ZZ(7)=ZZ(6> 

0BW=.2*Bw 

QXC=D8W*C0S ( THETA ) 

OZC=DBW*SIN< THETA) 

A(6>=DBW*TC 

XX < 6 ) = . 5* ( AS-BF-OXC > 

ZZ(8)=TS-f.5*(TODZC> 

00 60 1=9*12 
A( 1 )=A(8) 

XX ( I ) =XX (1—1) —DXC 
60 ZZ(I)=ZZ(I-1)+DZC 
A < 13) = «25*BF*TC 
XX(13)=.375*BF 
ZZ(13)=HH+TS+.5*TC 
A ( 14 ) =A ( 13 ) 
XX(14)=.125*BF 
ZZ(14)=ZZ(13) 

60 TO 190 

C*****CONFIGURATION NO 3 
70 OX=.l*(AS*TC) 

A ( 1 )=QX*TS 

XX( 1 ) =,5* ( AS-DX ) 

ZZ< 1)=.5#TS 
00 60 1=2*5 
A(l):Atl) 
XX(I)=XX(I-i)-OX 
60 ZZ(I)=ZZ(1) 

A(6)=.1*HH*TC 
XX(6)=»2b*TC 
ZZ(6)=*1*HH 
DO 90 1=7*10 
A(I )=A(6) 

XX ( I )=XX (6) 

90 ZZ(I)=ZZ(I-l)+HH/5. 

60 TO 190 

C*****C0NFI6URATI0N NO 4 
100 ABR=.5*(AS-BF)/R 
THETA=ASIN(ABR) 
DZ=R-R*C0S (THETA) 
bW=HH- . 5* ( TS+TC ) -OZ 
A ( 1)=,25*BF*TS 
XX(1)=.5*AS-.125*BF 
ZZ<1)=0. 


PNL 59 
PNL 60 
PNL 61 
PNL 62 
PNL 63 
PNL 64 
PNL 65 
PNL 66 
PNL 67 
PNL 68 
PNL 69 
PNL 70 
PNL 71 
PNL 72 
PNL 73 
PNL 74 
PNL 75 
PNL 76 
PNL 77 
PNL 78 
PNL 79 
PNL 80 
PNL 81 
PNL 82 
PNL 83 
PNL 84 
PNL 85 
PNL 86 
PNL 87 
PNL 88 
PNL 89 
PNL 90 
PNL 91 
PNL 92 
PNL 93 
PNL 94 
PNL 95 
PNL 96 
PNL 97 
PNL 98 
PNL 99 
PNL 100 
PNL 101 
PNL 102 
PNL 103 
PNL 104 
PNL 105 
PNL 106 
PNL 107 
PNL 108 
PNL 109 
PNL 110 
PNL 111 
PNL 112 
PNL 113 
PNL 114 
PNL 115 
PNL 116 
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A ( 2) =A ( 1 ) 

XXC2)=XX(1)-.25*BF 
ZZ (2>=0. 

ALPH=1.1666*TH£TA 

A35=K*THETA*TS/3. 

DO HO 1=3,5 

ALPHsALPH-THETA/3. 

A(I)=A35 

XX ( I ) =R*SIN ( ALPH ) 

UO ZZ( I )=DZ-(R-R*COS( ALPH) ) 
A<6)=.12b*8W*TC 
XX(6)=.25*TC 
ZZ ( 6 ) =DZ+ . 5* TS+ . 1 25*8* 

DO 120 1=7,9 
A(I)=A(6> 

XX ( I ) sXX (6) 

120 ZZU)=ZZ<I-1) + .25*8W 
AU0)=TC*BFL/4. 
XXC10)=.125*BFL 
ZZ(10)=Hh 
A( ll)sA(10) 

XX(U) = .37S*BFl 
ZZ(U)=ZZ(10) 

A ( 12 ) =9L*TC 

XX ( 12) = * 5* (BFL-TC ) 

2Z<12)=HH-.5*<TOBL> 

00 TO 190 

C*****C0NF1GURATI0N NO 5 
130 HR=1,-.5*HH/K 
THETAsACOS(HR) 

BF= , 5*AS-2 . *R*S I N ( THETA I 
A ( 1 ) = ,25*BF*JC 
XX(D = .125*BF 
ZZC1)=0. 

A (2 ) =A ( 1 ) 

XX (2 ) =»375*BF 
ZZ(2)=0. 

ALPH1=-0,1*ThETA 
A27=.2*R*THETA*TC 
DO 140 1=3,7 
A<I)=A27 

ALPHirALPHl* ,2*THETA 
XXU) = ,5*BF+R*SIN(ALPH1) 
140 ZZ<I)=R-R*C0S(ALPH1) 

DO 150 1=1,7 
Jsd-1 

A ( 1+7 )=A ( J) 
XX(I47)=.5*AS-XX(J) 

150 ZZ< J+7>=HM-Z2<J> 

GO TO 190 

C*****CONFIGURATXON NO 6 
160 THETA=AC0SU.-.5*HH/R) 

ASS2 . * < 2 . *R-HH ) *TAN C THETA ) 
ALPH1=-0.1*THETA 
A15=.2*R*THETA*TC 
00 170 1=1,5 
A ( I ) =A15 

ALPH1=ALPH1+ ,2*THETA 


PNL 117 
PNL 118 
PNL 119 
PNL 120 
PNL 121 
PNL 122 
PNL 123 
PNL 124 
PNL 125 
PNL 126 
PNL 127 - 
PNL 128 
PNL 129 
PNL 130 
PNL 131 
PNL 132 
PNL 133 
PNL 134 
PNL 135 
PNL 136 
PNL 137 
PNL 138 
PNL 139 
PNL 140 
PNL 141 
PNL 142 
PNL 143 
PNL 144 
PNL 145 
PNL 146 
PNL 147 
PNL 148 
PNL 149 
PNL 150 
PNL 151 
PNL 152 
PNL 153 
PNL 154 
PNL 155 
PNL 156 
PNL 157 
PNL 158 
PNL 159 
PNL 160 
PNL 161 
PNL 162 
PNL 163 
PNL 164 
PNL 165 
PNL 166 
PNL 167 
PNL 168 
PNL 169 
PNL 170 
PNL 171 
PNL 172 
PNL 173 
PNL 174 
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XX ( I ) =R*SIN( ALPH1 ) 

PNL 

175 

170 ZZ<I)=R-R*C0S<ALPH1) 

PNL 

176 

00 180 1=1*5 

PNL 

177 

J=b-1 

PNL 

178 

A ( 1+5 )=A15 

PNL 

179 

XX( I+5)=.5*AS-XX( J) 

PNL 

ISO 

180 ZZ<I+5>=HH-ZZ(J) 

PNL 

181 

190 IF (IFATIG.N£.O.OR,AII,GT.O> RETURN 

PNL 

182 

XXMI=0.0 

PNL 

183 

AREAsO.O 

PNL 

184 

FIRSTMSO.O 

PNL 

185 

00 200 I=1»NPS<3 

PNL 

186 

XXMI=XXMI+A(I)*ZZ<I)**2 

PNL 

187 

AREAS ARE A+A ( 1 ) 

PNL 

188 

200 FIRSTM=FIRSTM+A(I)*ZZCI> 

PNL 

189 

ZZBARsFIRSTM/AREA 

PNL 

190 

0MIS2 . * ( XXMI-AREA*ZZBAR**2 ) 

PNL 

191 

PMIsOMI*(SLS/AS) 

PNL 

192 

RETURN 

PNL 

193 

c*****configuration NO 7 

PNL 

194 

210 00 220 Isl'NPSG 

PNL 

195 

220 XX ( I ) =0 • 

PNL 

196 

A(1)=TF 

PNL 

197 

A ( 2) =0 » 

PNL 

198 

A(3)=TF 

PNL 

199 

A<4>=0. 

PNL 

200 

A(5)=TR/14. 

PNL 

201 

ZZ ( 1 ) =TC ♦TR+TB+1 . 5*TF+HH 

PNL 

20 2 

ZZ(2)=ZZ11)-.5*(HH+TF> 

PNL 

203 

ZZ ( 3 ) =ZZ ( 2 ) • « 5* ( HH+TF ) 

PNL 

204 

ZZU)=ZZ(3)-.5*(TB+TF) 

PNL 

205 

ZZ<5)=ZZ14)-.5*<TB+A<5) ) 

PNL 

206 

A ( 6) STR/7 • 

PNL 

207 

ZZ(6)=ZZ(5)-.5*(A(51+AC6)) 

PNL 

208 

DO 230 1=7*11 

PNL 

209 

A(I)=A(6) 

PNL 

210 

230 ZZ(I>=ZZII-1>-A<6) 

PNL 

211 

A ( 12) =A ( b ) 

PNL 

212 

ZZ(12)=TC+.5*A(12) 

PNL 

213 

A ( 13) =TC 

PNL 

214 

ZZ(13)=.b*TC 

PNL 

215 

GO TO 19U 

PNL 

216 

ENO 

PNL 

217 
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SUBROUT I NE PR A63 ( ALT * P I NF # T INF # RHOINF * ICK > 

DIMENSION PB(14) #ZI<5) #PK ( 6# 5 ) #RHOK (6 # 3) »TK(6.5) #VTK<6»3> » 
1ZB<14)#TM8(14)*LMB<14)#DM8(14) #MB<14) 

REAL LMB#M8#MWT 

DATA PBASE/6.23101759E-5/ 

DATA (ZI (I) *1=1 *5) /1Q832. 1*17853. 3*28000. #49000. *83004./ 


PR A 
PRA 
PRA 
PRA 
PRA 
PRA 
PRA 


DATA (PK (I) #1-1 #30) /1.6871582E-2»-1.1425176E-4#-1.3612327PRA 

lE-9#7.3624145E-i4#-1.08003i5E-17»3.3046432E-22»-7.99l0777E-2»-8.10PRA 
246438E-5#-5.5522383E-9#3.U16969E-13»-1.6687827E-17*3.83l935lE“22#PRA 
39.8414277E-l»-2.6976917E-4»8.522754lE-9»-3.9620263E-13#1.0l4647lE-PRA 
417*-i.0264318E-22* PRA 

5l.l41l8495El#-4,11497477E-4#1.33664855E-8#-3.59518975E-13» PRA 

65.10097254E-l8#-2.89Q55894E-23# PRA 

79.99324461 *-2.58298177E-4*3.76139346E-9#-4.20887236E-14# PRA 

81.6Q182148E-l9#-1.92508927E-25/ PRA 

DATA (RHOK (I) #1=1*18) /1.3302117E-2*-8.8502064£-5*-4.21430PRA 

156E-9#5.9517557E-13»-3.9744789E-17#7.8771273E-22»1.2667122E-1# PRA 

2- 1.3373147E-4#2.066737lE-9»2.3396l09E-l3#-3.2562503E-l7#7.9035209EPRA 

3- 22#9.2751266E-l»-1.4349679E-4#-2.8271736E-9#4.7480092E-14» PRA 

41 .8863246E— 18#— 4.2702411E-23/ PRA 

DATA <TK < I ) #I=1#30) /2.9667877E2*-6.773100lE-3*8.46l9805E-PRA 

17#-1.7004049E-10#1.1451454E-14#-2.4898788E-19» PRA 

22.6892l51E2#4.3075352E-3#-8.9159672E-7#-2.8929791E-ll,5.0724856E-lPRA 
35#-1.1490372E-19» PRA 

43.7o64557E2»-3.2858965E-2#2.0645636E-6»-4.3283944E-ll#-5.75o7242E-PRA 
517*8. 2924583E-21# PRA 

62.044798El#2.07698384E-2#-8.63038789E-7#1.66392417E-ll# PRA 

7— 9. 30076185E-17 #-4. 09005108E-22# PRA 

8- 4.98865953E2#3.92l37281E-2*-4.95180601E-7*-3.26219854E-l2# PRA 

9 9.66650364E-17#-4.78844279E-22/ PRA 

DATA <ZB(I) #1=1*14)/ PRA 

19.E4#1.E5»1.1E5»1.2E&#1.5E5#1.6E5#1.7E5*1.9E5*2.3E5»3,E5»4,E5*5.E5PRA 
2*6.E5#7,£5/ PRA 

DATA (TMB(I) *1=1*14)/ 180.65*210. 65*260. 65*360. 65*96o. 65# PRA 

11110 #65* 1210. 65 #1350 .65* 1550 .65# 1830. 65*2160. 65*2420. 65*259 0 .65* PRA 
22700.65/ PRA 

DATA (LMB(I) *1=1*14)/ 3.E-3*5.E-3»10.E-3*20.E-3*15.E-3»10.E-3»PRA 

17.E-3*5.E-3*4.E-3» 3.3E-3* 2.6E-3* 1 ,7E-3* l. IE-3* 1 • IE-3/ PRA 

DATA (MB(I) *1=1*14)/ 28. 9644*28. 88 *28. 56 *28. 07*26. 92*26. 66, 26. 40 »PRA 

125. 85 #24. 70 *22. 66# 19. 94* 17. 94* 16. 84 *16. 17/ PRA 

OATA <DMB<I)#I=1*14)/ -0.844E-5»-3,20E-5*-4.9E-5*-3.833E-5# PRA 

12*-2.60E-5»-2.75E-5*-2.875E-5#-2.914E-5*-2.72E-5#-2.0E-5#-l.lE-5* PRA 
2-0 • 67E-5 » -0 • 67E-5/ PRA 

DATA (PB ( I ) * 1=1 # 14 ) / . 172244361E-4# .315971712E-5# .774389807E-6* PRA 


1 . 2659771 1 IE-6 # . 535849383E-7 * . 39 1284945E-7 # . 295911 1 17£-7 # 
2.l787l5656E-7»,739258l71E-8*.200573ll6E-8*.4304566Q6E-9# 
3.117315480E-9#.370198961E-10».128115330E-10/ 


10 


20 

30 

40 


Z=ALT*.3048 

IF (Z.6T. 700000.) SO TO 
IF (Z.LT.O.) GO TO 160 
N=1 

IF (Z— 83004. ) 20*50*50 

IF (Z-ZI(N)) 40*30*30 

N=N41 

60 TO 20 

Z2=Z*Z 


160 


PRA 

PRA 

PRA 

PRA 

PRA 

PRA 

PRA 

PRA 

PRA 

PRA 

PRA 

PRA 

PRA 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 
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50 

60 

70 

80 

90 


Z3=Z2*Z 
Z4=Z2*Z2 
Z5SZ2*Z3 
GO TO 90 

IF (Z-90000.) 130»60»60 

IF (Z-ZB(N)J 80»140#70 

N=N+1 

GO TO 60 

N=N-1 

GO TO 140 


15 

IF 


(Z-28000.) lOOrllO.UQ 


100 


140 


1>*Z4+PK(6»N)*Z5) 

OENS= < 1 . 16790729 ) *EXP ( RHOK ( 1 # N 
1*Z3+RH0K (5»N) *Z4+RH0K ( 6 # N ) *Z5 ) 
GO TO 150 

1 10 PRESS . 00Q980665*£XP ( PK ( 1 » N> +PK 
1 ) *Z4+PK ( 6* N) *Z5) 

120 DENS=34. 83676* (PRES/TEMPK) 

GO TO 150 
130 TEMPKS180.65 


16344860, +83004. } ) ) 

GO TO 120 

MWT=MB ( N ) *DMa (N) * ( Z-ZB (N) ) 

TEMPMSTMB ( N ) +LMB ( N ) * ( Z-ZB (N) ) 

TEMPKS ( MrtT/28 . 9644 ) *TEMPM 

PRESsEXP ( ALOG <PB IND + ll. 373301523E12/ <LMB <N) * ( 634486 
1 . +ZB (N) ) ) )*ALOG(TMBIN)/<TMB(N)*(LMB(N)*(Z-ZB(N))) >)) 
DENS=34.83676*PRES/TEMPM 
PINFsPRES*208.8576 
TINFsTEMPK*1.8 
RH0INF=DENS*0, 0019404 
ICK=1 
GO TO 170 
ICK=0 
CONTINUE 
RETURN 
END 


150 


160 

170 


PRA 

59 

PR A 

60 

PRA 

61 

PRA 

62 

PRA 

63 

PRA 

64 

PRA 

65 

PRA 

66 

PRA 

67 

PRA 

68 ‘ 

ZPRA 

69 

PRA 

70 

PRA 

71 

NPRA 

72 

PRA 

73 

UPRA 

74 

PRA 

75 

PRA 

76 

NPRA 

77 

PRA 

78 

PRA 

79 

PRA 

80 

PRA 

81 

‘(PRA 

82 

PRA 

83 

PRA 

84 

PRA 

85 

PRA 

86 

PRA 

87 

*0PRA 

88 

PRA 

89 

PRA 

90 

PRA 

91 

PRA 

92 

PRA 

93 

PRA 

94 

PRA 

95 

PRA 

96 

PRA 

97 

PRA 

98 

PRA 

99- 
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SUBROUTINE PRlNTKISS, 

ITER) 




PRN 

1 






PRN 

2 

COMMON /FLAGS/ IFIRST. 

ISTRES* IFATIG* IWTCST 


PRN 

3 

COMMON/TPS/ A (20) .0(9) . 

R*X<9) 




PRN 

4 

COMMON AL 

# ALPHA ( 99) 

» ALT ( 99) 

» AME 

» AMI 

PRN 

5 

1 . AOFA * AOFE 

* AROD 

.AS 

» Ax (9* H.9) *AY(g,li#9)PRN 

6 

2# BATA .BE 

,BETA(99) 

*BF 

»BFL 

»BL 

PRN 

7 

3 • DELTA .OIAM 

* DIST ( 9 ) 

*DST 

»E(2Q*99) 

*eall 

PRN 

8 

4 ♦ EAT (20, 99) *£DOT (20.99) »EMIS(9) 

*FACC 

*FCU(20»99) 

»FCY(20»99)PRN 

9 

5»FNET(20) *FSU(20»99) 

*FT(20) 

»FTU( 20*99) 

»FVE 

»F07 

PRN 

10 

6.6(20.99) .HH 

♦ HINS 

.HINSD (99 ) 

* ICONF 

» ILlNKO 

PRN 

11 

7.IQINP . ITURB 

*iwalt 

»MAT (9*9) 

»MPT (9.9) 

.MR ( 9 * 18 ) 

PRN 

12 

8»NC0LM .NCR 

»NCRC 

»NF 

»NI ( 18 ) 

»NINS 

PRN 

13 

9.NMAT »NMIN 

*NPRT 

*NPSG 

*NR(18) 

. NRSg 

PRN 

14 

$ * NSEG . NTRAJ 

»N33 

*PE 

*PHI 

.PI 

PRN 

15 

S*PINP(99> »GC0NL<9) 

*QC0NT (9) 

.QINP (99) 

»QNET(9) 

.RH0(9) 

PRN 

16 

9.RHOI .RYE 

*RYI 

*SL 

»SLS 

.staat 

PRN 

17 

S .STI .STOOP 

♦T (20.99) 

.TALLW (9 ) 

» TAMP ( 9 * 9) 

.TAU 

PRN 

18 

5 * TCl »TEMP(9*9) 

» THETA 

*TI 

* T I ME ( 99 ) 

♦ TINS 

PRN 

19 

$»TINSD(99) »UF 

* VFACT ( 9* 18 ) * Vi 

»VINF(99) 

.wrote 

PRN 

20 

$* XEMIS »XSTG(99) 

* XX(20) 

. Y ( 9 ) 

*ZZ(2 0) 


PRN 

21 






PRN 

22 

N=ISS 





PRN 

23 

CALL SECOND (CPTIME) 





PRN 

24 

WRITE (6.60) ITER. CPTIME 




PRN 

25 

WRITE (6*30) TAUrALrVI 

,aofa#pi,ami,ame»ryi»pe 


PRN 

26 

WRITE (6»50) (I,I=1#9) 

.Q.QNET 




PRN 

27 

DO 10 JrifNSEG 





PRN 

28 

10 WRITE (6#60) Jf (TEMPI I 

» J) *1=1*9) 




PRN 

29 

IF (NINS.EQ.l.OR.ISTRES.NE.O) GO 

TO 20 



PRN 

30 

WRITE (6*70) (A(I),XX(I),2Z(I),T(I*N)*FT(I), 

FNET(I) *EDOT(I) ,FTU(I 

» PRN 

31 

IN) »FCY ( I * N) * E ( I * N ) * I = 1 * NPSG ) 




PRN 

32 

20 WRITE (6*40) 





PRN 

33 

RETURN 





PRN 

34 






PRN 

35 

30 FORMAT ( 20X3HTAU* 10X2HAL* 10X2HVI » 

8X4HA0FA* 10X2HPI » 9X3HAMI * 9X3HAME 

.PRN 

36 

19X3HRYI » 10X2HPE/12X#9E12.4) 




PRN 

37 

40 FORMAT ( 1 H 1 ) 





PRN 

38 

50 FORMAT ( //11X1HI *9I12//8X4HQ( I ) »9E12»4/5X7HQNET ( I ) *9£12 

.4/) 

PRN 

39 

60 FORMAT (2X7HTEMP( I * 12* 

1H)»9E12.4) 




PRN 

40 

70 FORMAT ( //llXlHA 1 10X2HXX » 10X2HZZ * 

1 1X1HT * 10X2HFT * 8 X 4 HFNET r 8 X 4 HEDOT 

.PRN 

41 

19X3HFTU* 9X3HFCY » 1 1X1HE// ( 10E12, 3 ) ) 



PRN 

42 

80 FORMAT ( 1H0 » 5X23HNUMBER OF TIME STEPS = *110 

.20X9HCPTIME = ,F10.3/PRN 

43 

1 ) 





PRN 

44 

END 





PRN 

45' 
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SUBROUT I NE SHOCK ( A 1 1 , PI , PY r RHO I , VU ♦ S > 

SHK 

1 



SHK 

2 


M=1 

SHK 

3 


RY=3.5*RHOI 

SHK 

4 

10 

IF (M.GT.ll) GO TO 30 

SHK 

5 


VY=RHOI*VU/RT 

SHK 

6 


VY2=VY*VY 

SHK 

7 


VU2sVU*VU 

SHK 

8 


PY=PU-RHOl*VU*(VU-VY> 

SHK 

9 


HY=AII+(VU2-VY2)/50061.5 

SHK 

10 


CALL AIR {2»3#PY»S»HY»Z*RYP#TY »CS) 

SHK 

11 


DRsRYP-PY 

SHK 

12 


M=M+1 

SHK 

13 


IF (ABS(DR/RY) .LT. 0.001) GO TO 20 

SHK 

14 


IF (RYP.LT.RHOI) RYPSRHOI 

SHK 

15 


RYQ=RY 

SHK 

16 


KY=RYP 

SHK 

17 


GO TO 10 

SHK 

18 

20 

PY=PY-»-RYP*VY2 

SHK 

19 


return 

SHK 

20 

30 

*RITE (6.40) RY.RYG 

SHK 

21 


CALL EXIT 

SHK 

22 



SHK 

23 

40 

FORMAT (35H ITERATION LIMIT EXCEEDED IN R-L00P.2E15.4 > 

SHK 

24 


END 

SHK 

25- 
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SUBROUTINE STRESS! ISS* 1ST) 




STR 

1 





STR 

2 

COMMON /CNDTN/ DEL »DTMAX»TTAU» ITER 



STR 

3 

COMMON /LINK/ NSECT* TC * TS*TSKINl * 

TSKIN2*TINS1»TINS2*TINS3*XDST 

STR 

4 

COMMON/TPS/A (20) »Q(9) *R*X(9) 




STR 

5 

COMMON AL * ALPHA (99) 

# alt (99) 

*ame 

* AMI 

STR 

6 

1 • AOFA »aofe »aroo 

*AS 

* Ax (9*11*9) 

•AY (9*11* 

9) STR 

7 

2 * BATA *BE *BETA(99) 

»BF 

*bfl 

*BL 

STR 

8 

3# DELTA »0IAM »DIST<9) 

*DST 

»E(20*99) 

*eall 

STR 

9 

4 » EAT (20*99)* EDOT ( 20 #99) »EMIS(9) 

rFACC 

»FCU(20*99) 

♦FCY(20»99)STR 

10 

5»FNET (20 ) *FSU(20*99) »FT(20) 

*FTU(20*99) 

»FVE 

*F07 

STR 

11 

6*G(20»99) »HH *HINS 

*HINSD ( 99 ) 

» ICONF 

•ilinko 

STR 

12 

7 » IQINP * ITUR8 #IWALT 

*MAT (9*9) 

»MPT (9*9) 

»MR<9* 18) 

STR 

13 

8 * NCOLM »NCR ,NCRC 

»NF 

»NI ( 18) 

*NINS 

STR 

14 

9 » NMAT »NMIN ,NPRT 

* NPSG 

»NR(18) 

*NRSG 

STR 

15 

S * NS£G » NTRAJ »N33 

#PE 

*PHI 

*PI 

STR 

16 

$*PINP (99) *QCONL (9) *QC0NT(9) 

*QINP(99) 

*QNET(9> 

*RHO ( 9 ) 

STR 

17 

S » RHOI »RYE »RYI 

*SL 

*SLS 

♦STAAT 

STR 

18 

S * STl * STOOP » T(2G*99) 

* TALLW (9) 

»TAMP(9*9) 

»TAU 

STR 

19 

*»TCl *TEMP(9»9) *THETA 

*TI 

*TIM£(99) 

»TINs 

STR 

20 

S»TINSD(99) *UF »VFACT(9»18 

) »vi 

*VINF(99) 

» WROTE 

STR 

21 

$ * XEMIS »XSTG(99) *XX(20) 

* Y(9) 

*ZZ (20) 


STR 

22 

DIMENSION BMMAX(99) »EDO(20 ) *SUM£ ( 20 ) »PX ( 20 ) 



STR 

23 

REAL MSCC * MSCT# MSFC* MSFT * MSHS 

, MSIC* MS IT 


STR 

24 

EQUIVALENCE (TF.TS)* ( DC » BL ) 




STR 

25 





STR 

26 

M=1 




STR 

27 

KM=I 




STR 

28 

RllMrO. 




STR 

29 

R12M=0. 




STR 

30 

R23M=0. 




STR 

31 

R33M=0. 




STR 

32 

R41M=0. 




STR 

33 

R42M=0. 




STR 

34 

R51MS0. 




. STR 

35 

R52M=0. 




STR 

36 

ISSslSS+1 




STR 

37 

II=ISS 




STR 

38 

U=ISS 




STR 

39 

GO TO (10*10*40*70*100*120*140)* 

NSECT 



STR 

40 

10 DO 20 1=1 * 5 




STR 

41 

T(I,J)=TEMP(I»1) 




STR 

42 

IF (T(I,J).GT.TALLW(1)) GO TO 610 




STR 

43 

20 CONTINUE 




STR 

44 

T(6.J)=.5*(TEMP(6*1>+TEMP<6»2)> 




STR 

45 

T(7»J)=.5*(T£MP(7»1)+TEMP(7»2) ) 




STR 

46 

T(8,0)=TEMP(6*3) 




STR 

47 

DO 30 1=9* 14 




STR 

48 

K=15-I 




STR 

49 

30 T(I,J)=TEMp(K*4) 




STR 

50 

GO TO 160 




STR 

51 

40 00 50 1=1*5 




STR 

52 

K=7-I 




STR 

53 

T(I*J)=TEMP(K»1) 




STR 

54 

IF ( T ( I *U) »GT*TALLW< 1 ) ) GO TO 610 



STR 

55 

50 CONTINUE 




STR 

56 

XT=5.*TS/HH 




STR 

57 

T ( 6 » J ) =XT*TEMP ( 1 * 1 ) «■ ( 1 , -XT ) *TEMP (1*2) 



STR 

58 
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DO 60 1=7* 10 
K=I-4 

60 T(I#J}=TEMP(1,K) 

GO TO 160 
70 00 60 1=1*5 
K=7-I 

T(I»J)=TEMP(K*1> 

IF (T(I, J) .GT.TALLtf(l) ) GO TO 610 
80 CONTINUE 
DO 90 1=6*9 
K=I— 4 

90 T(I# J)=TEMP(1»K) 

TU0»J>=TEMP<2,6> 

T ( 11 » J) =TEMP ( 3»6) 
T(12*J)=TEMP(4,6) 

GO TO 160 
100 00 110 1=4 , 14 
K=I-3 

IF (K.GT.9) K=9 
T ( I , J ) =T£MP (K * 1 ) 

IF (TCI, J) .GT.TALLWU)) GO TO 610 

110 continue 

T(1»J)=T(7,U) 

T (2, J)=T (6,J) 

T(3»J)=T(5*U) 

GO TO 160 
120 00 130 1=3, lu 
K=I-2 

T(I*J)=TEMP<K,1) 

IF (T(I,U> .GT.TALLW(l) ) GO TO 610 
130 CONTINUE 

T(1,J)=T(5»U) 

T(2.J)=T(4,U) 

GO TO 160 
140 K=15 

00 150 1=1*12 

IF (I, EQ. 4. OH. I. EG. 5) K=K-1 
150 T(I*J)=TEMP(K-I) 

T(13.J)=TEMP(1) 

160 IF ( IST.GE* 1 ) GO TO 190 
IST=1 

L=IA0S(MAT(1,1) ) 

IF INSECT. EQ. 7) L=1 
CF=FLOAT(NF)*WROTE/7200. 

FCYO=AY ( L* 5* 1 ) 

170 CALL PANEL 
R1M=0. 

R2M=0. 

R3M=0. 

R4M=0. 

R5M=0. 

R6M=0. 

OMAX=0 • 

WBMS=100. 

DO 180 I=1»NPSG 
£00(1 )=0 , 

180 SUHE ( I ) =0 . 

IF (M.EQ.2.0R.KM.GT.1) GO TO 200 


STR 59 
STR 60 
STR 61 
STR 62 
STR 63 
STR 64 
STR 65 
STR 66 
STR 67 
STR 68 
STR 69 
STR 70 
STR 71 
STR 72 
STR 73 
STR 74 
STR 75 
STR 76 
STR 77 
STR 78 
STR 79 
STR 80 
STR 81 
STR 82 
STR 83 
STR 84 
STR 85 
STR 86 
STR 87 
STR 88 
STR 89 
STR 90 
STR 91 
STR 92 
STR 93 
STR 94 
STR 95 
STR 96 
STR 97 
STR 98 
STR 99 
STR 100 
STR 101 
STR 102 
STR 103 
STR 104 
STR 105 
STR 106 
STR 107 
STR 108 
STR 109 
STR 110 
STR 111 
STR 112 
STR 113 
STR 114 
STR 115 
STR 116 
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C*****CORRUGATION bm at mio span 
190 W=P£*AS/144. 

SLP=SLS-2.*8E 

bMMAX(ISS)=W*SLP*SLP/8. 

IF INSECT. EQ. 7) CRFSsABS ( W*SLP/ ( 2 . * < HH+TF ) ) ) 

200 00 600 N=II»ISS 
210 SUMA=0. 

SUMPX=0. 

SUMTA=0. 

SUMMXsO . 

SUMXX=0. 

SUMA2=0. 

L=IABS(MAT(1»1) ) 

00 300 Ul'NPSG 

IF (M.EQ.2.0R.KM.GT.1) GO TO 290 
IF (NSECT.NE.7) GO TO 270 

GO TO <?20'230'220'240'250,250'250'250'250'250'250'250'260) 
220 L=1 

FCY(I,N)=TRPLAT(AY,AX»T< I»N) t L, 5 *MPT (L» 5) ) 
FTU(I,N)=TRPLAT(AY#AX»T(I*N) »L»6»MPT(L»6) ) 

GO TO 280 
230 L=2 

FCu(I,N)=TRPlAT<AY#Ax»T<I#N) »L» 9»MPTCL»9) ) 
FSU(l,N)=TRPLAT(AY»AXrT(I#N) »L» 10»MPT (L# 10 ) ) 
G(I#N)=TRPLAT(AY.AXf T(I.N) »Li 11#MPT(U» 11) > 

GO TO 280 
240 L=3 

FSU(I,N)=TRPlAT(AY.AX,T<I.N) #L»10.MPTCL»10)) 
FTU(1,N)=TRPlAT(AY»AX#T<I*N)#L» 6»MPT(L»6> ) 
G(I.N)=TRPLAT(AY»AX»T(I»N),L,ll,HPT(L»li) ) 

GO TO 280 
250 L=4 

FCU(I.N)STRPUAT(AY»AX.T(I.N) »L»9»MPT(L»9) ) 
FSU(I,N)=TRPLAT(AY»AX,T(I»N) »L»10»MPT(L»10) ) 
FTU(I»N)=TRPLAT(AY*AX»T<I»N) »L»6»MPT(L*6)) 
G(I,N)=TRPlAt(AY»AX»T(I»N),L»11»MPT(L*11) ) 

GO TO 280 
260 L=5 

FCU(I,N)=TRPLAT(AY»AX»TUfN) »L.9»MPT(L»9) ) 
FTU(I,N)=TRPLAT(AY»AX,T(I»N)fL»6»MPTa»6)) 

GO TO 280 

270 FCY(I.N)=TRPLAT(AY»AX»T(I»N) »U5»*PT(L»5> > 
FTU<I»N)STRPLAT(AY»AX»T<I»N) » L* 6 »MPT ( L »6) > 

280 E(I»N)=TRPLAT(AY,AX»TCI»N),L»3»MPT(L»3) ) 
ALFAsTRPLAT(AY f AX»TII»N)#L#4»MPT<Lf4>) 

EAT ( I #N) sE ( I . N) *ALFA* < T < I iN> -530 . > 

290 EATA=EATCI»N)*A(I) 

AE=E(I.N)*A(I) 

SUMA=SUMA+AE 

sumta=sumta+eata 
summx=summx*ae*zz« I ) 

SUMXX=SUMXX*AE*ZZ ( Z ) *02 
300 sumaz=sumaz+eata*zz < I ) 

IF INSECT. EQ. 7) L=1 

ABAR=SUMTA/SUMa 

SBARsSUMAZ/SUMTA 

ZBAR=SUMMX/SUMA 

XXIS2 .* ( SUMXX-ZBAR*SUHMX ) 


STR 117 
STR 118 
STR 119 
STR 120 
STR 121 
STR 122 
STR 123 
STR 124 
STR 125 
STR 126 
STR 127 
STR 128 
STR 129 
STR 130 
STR 131 
STR 132 
STR 133 
STR 134 
STR 135 
STR 136 
STR 137 
STR 138 
STR 139 
STR 140 
STR 141 
STR 142 
STR 143 
STR 144 
STR 145 
STR 146 
STR 147 
STR 148 
STR 149 
STR 150 
STR 151 
STR 152 
STR 153 
STR 154 
STR 155 
STR 156 
STR 157 
STR 158 
STR 159 
STR 160 
STR 161 
STR 162 
STR 163 
STR 164 
STR 165 
STR 166 
STR 167 
STR 168 
STR 169 
STR 170 
STR 171 
STR 172 
STR 173 
STR 174 
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XXM=2.*SUMTA*<ZBAR-SSAR) 


STR 

175 

XXWSXXM/XXI 


STR 

176 

WX=8MMAX(N)/XXI 


STR 

177 

DFL=( ,iOH2*WX-.125*XXW)*SLS**2 


STR 

178 

0MAX1=AMAX1(ABS(DMAX) .ABS(DFL) ) 


STR 

179 

IF (ABS(OMAXl) .EQ.ABS(OFL) ) OMAX=DFL 


STR 

180 

C ***** THERMAL STRESS 


STR 

181 

DO 310 I=1»NPSG 


STR 

182 

FT(I)sE(I#N)*(ABAR+XXW*CZBAR-ZZ(I)))-EAT(I»N) 


STR 

183 

310 FNET { I ) =FT < I ) -WX*E ( I * N> * < ZBAR-ZZ ( I ) ) 


STR 

184 

IF (NSECT.NE.7) GO TO 330 


STR 

185 

DO 320 I=5»13 


STR 

186 

PX(I)=FNET(I)*A(I) 


STR 

187 

320 SUMPX=SUMPX-fPX ( I ) 


STR 

188 

C*****STRESS OOE TO APPLIED BM 


STR 

189 

C*****t>UCKLING OF SKIN 


STR 

190 

330 IF (M.E0.2) GO TO 350 


STR 

191 

IF (NSECT.GT.2) GO TO 350 


STR 

192 

IF (FNET(l) .GE.O.) GO TO 350 


STR 

193 

F7=F07*FCYU#N)/FCY0 


STR 

194 

FCR=3.62*E(lrN)*(TS/(AS-BF) )**2 - - - 

* 

STR 

195 

CALL BUCKNG ( E ( 1 »N ) ,P7»FCR»FCY < 1 ,N) »FTUC1»N) »NCR) 


STR 

196 

IF (FCR.GE.ABS(FNET<1))) GO TO 350 


STR 

197 

DO 340 I=l#4 


STR 

198 

340 A(I)=0. 


STR 

199 

M=2 


STR 

200 

GO TO 210 


STR 

201 

350 IF (NSECT.NE.3) GO TO 370 


STR 

202 

c*****buckling of leg SECT NO 3 


STR 

203 

BF=AS 


STR 

204 

N3=0 


STR 

205 

FTTSO. 


STR 

206 

DO 360 I=6#NPSG 


■ • ^ STR 

207 

IF (FNET(I) .GT.O.) GO TO 360 


• s STR 

208 

N3=N3+1 


••‘"STR 

209 

FTT=FTT+FNET(I) 


STR 

210 

360 CONTINUE 


STR 

211 

IF (N3.EQ.0) GO TO 370 


STR 

212 

BF3=.2*HH*FL0At<N3) 


STR 

213 

FAVE=FTT/FL0AT(N3) 


STR 

214 

J=NPSG-N3+1 


STR 

215 

F7SF07*FCY(J.N)/FCY0 


STR 

216 

FCR=,385*E(J.N)*(TC/BF3)**2 


STR 

217 

CALL BUCKNG(E(J»N) ,F7.FCR.FCY< J, N) »FTU( J»N) .NCR) 


STR 

218 

WB=-FCR/ ( FAVE*UF ) -1 . 


STR 

219 

GO TO 300 


STR 

220 

370 WBS100. 


STR 

221 

C*****CREEP RATE 


STR 

222 

380 KKBMS=AMIN1(WBMS»WB) 


STR 

223 

DO 600 I=1»NPSG 


STR 

224 

IF (A(I).LE.O.) FNET<I)=0. 


STR 

225 

FXSFNET(I) 


STR 

226 

IF (NSECT • EG. 7, AND, (1.EQ.2.0R.I.GT.3)) GO TO 390 


STR 

227 

PLMl=TRPLAT( AY»AX» ABS(FX) »L»7»MPT<L»7) ) 


STR 

228 

PLM2=TRPLAT(AY,AX»ABS(FX> »L»8»MPT<L#8) ) 


STR 

229 

E1=PLM1/t(I»N)-20, 


STR 

230 

E2=PLM2/T(I»N)-20. 


STR 

231 

IF (ABS(El) ,LT. 30,0. AND. ABS(E2).LT. 30,0) GO TO 400 


STR 

232 
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EDOTIX>=0.0 STR 233 

60 TO 410 STR 234 

390 EOOT { I )=0. STR 235 

60 TO 990 STR 236 

400 EDOT(I)=ABS(OST/(10,**£2-10.**El) ) STR 237 

410 IF (NSECT.E0.7J 60 TO 990 STR 238 


C*****STRUCTURAL INDICES FOR THE SELECTION OF CRITICAL TRAJECTORY POINTSSTR 239 


IF (FX.GT.O. ) 60 TO 420 STR 240 

HUSO, STR 241 

R22=-FX/FCT(I#N) STR 242 

R33SR22 STR 243 

R44=-FX/£(I#N>' - STR 244 

R55=SQRT(R22*R44> STR 245 

60 TO 430 STR 246 

420 R11=FX/FTU(I»N) STR 247 


R22=FX/FCY(I,N) 

R33=U, 

R44=0. 

R55=0. 

430 RlMsAMAXl (R1M»RH) 

R2MSAMAX1 (R2M.R22) 

R3M=AMAX1 (R3M.R33) 

IF (R3M.NE.R33) 60 TO 440 

13=1 

N3=N 

FN3=FX 

440 60 TO ( 450 » 490 » 490 » 460 #470,480) , NSECT 

450 IF U.6E.6) 60 TO 480 
60 TO 490 

*♦60 IF (I.6E.3.AND.I.LE.5) SO TO 480 
60 TO 490 

470 IF ( I .GE.3. AND, I.LE.12) 60 TO 460 
60 TO 490 

460 R4MSAMAX1 (R4M,R44) 

IF (R4M.NE.R44) GO TO 490 

14=1 

N4=N 

FN4SFX 

490 60 TO (530,500,530,510*500,530) , NSECT 

500 IF (I.GE.13) Go TO 520 
60 TO 530 

510 IF (I.6E.11) GO TO 520 
60 TO 530 

520 R5M=AMAXl (R5M»R55) 

IF (R5M.NE.R55) 60 TO 530 

15=1 

N5=N 

FN5=FX 

530 60 TO (540,540,550,560,560,560), NSECT 

540 IF (I. EO. 6. OR. I. EG, 7) GO TO 570 
GO TO 580 

550 IF (I.LE.5) GO TO 570 
60 TO 580 

560 IF (I.LE.2) GO TO 570 
GO TO 560 

570 R6M=AMAX1(R6M,R55) 

IF (R6M.NE.R55) GO TO 580 
16=1 


STR 248 
STR 249 
STR 250 
STR 251 
STR 252 
STR 253 
STR 254 
STR 255 
STR 256 
STR 257 
STR 258 
STR 259 
STR 260 
STR 261 
STR 262 
STR 263 
STR 264 
STR 265 
STR 266 
STR 267 
STR 268 
STR 269 
STR 270 
STR 271 
STR 272 
STR 273 
STR 274 
STR 275 
STR 276 
STR 277 
STR 278 
STR 279 
STR 280 
STR 281 
STR 282 
STR 283 
STR 284 
STR 285 
STR 286 
STR 287 
STR 288 
STR 289 
STR 290 
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N6=N 

FN6=FX 

580 IF <NSECT.EQ.7.AND.(I.EQ.2.0R.I.GT.3)> GO TO 590 
SUME ( I ) =SUME ( I > +CF* (EDOT < I ) +EOO { I ) J 
590 EDO(I)=EOOT(I) 

600 CONTINUE 
GO TO 620 
610 IFLAG=1 

620 IF (IST.E0.2) GO TO 630 
RETURN 

C*****ULTIMATE TENSION 

630 IF (IFLAG.EQ.l) GO TO 860 
IF (NSECT. EQ. 7) GO TO 820 
T1MS=1./(R1M*UF)-1. 

c*****yield strength 
Y2MS=1./R2M-1. 

C*****ULT IMATE COMPRESSION 

IF (R3M.LE.0.) GO TO 640 
FCUU=AMIN1(1.1*FCY(I3»N3) »FTUU3#N3) ) 
C3MS=-FCUU/(FN3*UF)-1. 

GO TO 650 
640 C3MS=100. 

C*****6UCKLING OF CORRUGATION 
650 IF (R4M.LE.0.) GO TO 700 

GO TO (660»700.700»670»680»680) ♦ NSECT 
660 TX=TC1 

GO TO 690 
670 TX=TS 

GO TO 690 
680 TX=TC 

690 F7=F07*FCY(I4»N4)/FCY0 
FCR=.3*E(I4»N4)*TX/R 

CALL BUCKNG(E(I4»N4) *F7.FCR#FCY< I4»N4> »FTU(I4»N4) .NCR) 
C4MS=-FCR/(FN4*UF)-1. 

GO TO 710 
700 C4MS=100. 

C*****CR IPPLING OF FLANGE 

710 IF (R5M.LE.0.) GO TO 740 

GO TO (740.720.740.720*720.740) » NSECT 
720 1=15 
N=N5 
MSI 
TX=TC 

730 FCC=1 . 385*FC Y < I * N ) / ( SORT ( FC Y < I » N ) /E ( 1 1 N ) ) *8F/TX ) ** . 808 
IF (1,1*FCY(I»N) »LT«FCC) FCC=1 . 1*FCY ( I »N) 

IF (FTU(1»N) .LT.FCC) FCC=FTU(I»N) 

IF (M.E0.2) GO TO 800 
F5MS=-FCC/ (FN5*UF ) -1 . 

GO TO 750 
740 F5MS=100. 

750 IF <R6M.lE.O.) GO TO 810 

GO TO ( 760 » 760 » 770 ♦ 770 » 780 » 810 ) t NSECT 
760 TX=TC4TS 
GO TO 790 
770 TX=TS 

GO TO 790 
780 TX=TC 
790 M=2 
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1=16 

N=N6 

GO JO 730 

800 F6MS=-FCC/(FN6*UF)-1. 

GO TO 840 
810 F6MS=L00. 

GO TO 840 

MSXX=100. INDICATES MARGIN IS NOT APPLICABLE. 

620 MSFT=100. 

IF (RliM.NE.O.) MSFTS1./(R11M*UF)-1. 

MSFC=100. 

IF (R12M.EQ.0.) GO TO 830 

FCRw=.5*(G{2»Nl2)*E<2#N12>*E(I12#N12))**.333 
F7=F07*FCY C 1 12# N12 ) /FCTO 

CALL BUCkNG(E( I12»N12) #F7»FCRW*FCY( 112# N12) »FTU( I12»N12 ) #NCR ) 
FCRD=3.*E(I12»N12)*(TF/0C)**2. 

CALL BUCkNG(E<I 12#N12)»F7»FCRD,FCY(I12»N12)»FTU<I12»N12)#NCR) 
FCRsAMINl (FCKW,FCRD) 

MSFC=FCR/<R12M*FCY(I12»N12> )-l. 

630 MSHS=100. 

IF (R23M.NE.0.) MSHS=1./(R23M*UF)-1. 

MSIT=100. 

IF (K41M.NE.0.) MSIT=1./(R41M*UF)-1. 

MSIC=100. 

IF (R42M.NE.0.) MSIC=1 ./ (R42M*UF )«1. 

MSCT=100. 

IF (RS1M.NE.0.) MSCT=1./(R51M*UF)-1. 

MCSS=100. 

IF (R52M.NE.J.) MSCC=1./ (R52M*UF)-1. 

C****» SELECTION OF MAX CREEP STRAIN AND MIN M.S. 

640 EMAX=0. 

IF (NSECT.EQ.7) GO TO 870 
00 8&0 I=1#NPSG 
8S0 EMAX=AMAX11EMAX»SUME(I) ) 

EMS=AMIN1<T1mS»Y2MS»C3MS»C4MS»F5MS»F6MS»*BMS> 

860 IF (NPRT.EO.l) CALL PRINT1USS# ITER) 

IF (IFLAG.EO.l) GO TO 970 

WRITE (6# 1220) TIMS# Y2MS#C3MS#C4MS#F5MS#F6MS»WBMS#DMAX»EmS#EMAX 
GO TO 880 

870 EMAX=AMAX1(SUME(1)#SUME(3)) 

EMSslOOOOOOOOO. 

CALL MSMIN(EMS»MSFT»NH,NMIN) 

CALL MSMIN(EMS#MSFC»N12»NMIN) 

CALL MSMIN(EMS#MSHS»N23#NMIN) 

CALL MSMIN(EMS#MSIT»N41#NMIN) 

CALL MSMIN(EMS#MSIC»N42»NMIN) 

CALL MSMlN(EMS»MSCT#N51#NMIN) 

CALL MSMIN{EMS#MSCC»N52#NMIN) 

IF (NPRT.EO.l) CALL PRINT1 (ISS# ITER ) 

WRITE (6# 1230) MSFT#MSFC#MSHS»MSIT»MSIC»MSCT»MSCC»DMaX,EMS#EMAX 
880 IF (KM. EG. 2) GO TO 920 
C**%*#SELECTI0N OF MIN M.S. 

IF (EALL.GE.EMAX.AND.EMS.GE.O.) GO TO 980 

KM =2 

R11MS0. 

R12MS0. 

R23M=0. 

R33M=0. 
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R41M=0. 

K42M=0« 

R51M=0. 

R52M=0, 

DT=.010 

IF (NSECT.EQ.7) DT=.05 
890 AMAXSEMAX 
AMSsEMS 

IF (NSECT.EQ.7) GO TO 900 
TCSTC+OT 

IF (NSECT.EQ.3.0R.NSECT.EQ.4) 
GO TO 910 
900 HHSHH+DT 

IF (hH.LT. b.) GO TO 910 
WRITE (6 * 1270 ) 

WRITE (6*1250) 

HH=HH-DT 
RETURN 
910 11=1 

( 6 * 1260 ) 

( 6 * 125o ) 


TS=TS+0T 


TC»TS*HH 


WRITE 
WRITE 
M=1 

GO TO 170 

920 IF (EALL.GE.EMaX.AND.EMS.GE.O. ) GO TO 980 . 

IF (EALL.GE.EMAX) GO TO 930 
OEDT=l ,E2 * ( AMAx-EMAX ) 

IF (NSECT.EQ.7) DE0T=(AMAX-EMAX)/.05 
0T1= ( EMAX- . 9b*EALL ) /OEDT 
GO |0 94U 
DT1=0 . 

IF (EMS.GE.O) GO TO 950 
UMDT=1.E2*(EMS-AMS) 

IF (NSECT.EQ.7) OMDT=(EMS-AMS)/.05 
DT2= ( « 05-EMS ) /DMDT 
GO TO 960 
DT2=0 • 

DT=AMAX1 (DT1.DT2) 

KM=3 

GO TO 890 

WRITE (6*1240) TALLW( 1) * I *T( I * J) 

CALL EXIT 
wRlTt. (6* 125u ) 

RETURN 
IX=I 

GO TO (1000*1050*1000*1080*1110*1110*1110*1110* 
1*1160) IX 
1000 R1=FX/FTU(IX*N) 

IF (Rl.LT.O.) R1=0. 

IF (R1-R11M) 1020*1010*1010 
1010 R11M=R1 
I11=IX 
NllrN 

1020 R2=-FX/FCY(IX*N) 

IF (R2.LT.0.) R2=0. 

IF (R2«R12M) 1040* 1030* 1030 
1030 R12M=R2 
I12=IX 
N12=N 


930 

940 


950 

960 


970 


980 

990 
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111 0*1110*1110*1 110STR 451 

STR 452 
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STR 456 
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STR 459 
STR 460 
STR 461 
STR 462 
STR 463 
STR 464 
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1040 GO TO 1210 
1050 K3=CRFS/FSU(IX»N) 

IF (R3-R23M) 1070 * 1060* 1060 
1060 R23M=R3 
1 23=2 
N23=N 

1070 GO TO 1210 

1080 R3=(A8S(SUMPX) )/FSU<lX*N> 

IF (R3-R33M) 1100* 1090* 1090 
1090 R33M=R3 
133-4 
N33SN 

1100 GO TO 1210 
1110 H1=FX/FTU<IX»N) 

IF (R1.LT.0.) R1=0. 

IF (Rl-R^IM) 1130*1120*1120 
1120 K41M=R1 
I41=IX 
N41=N 

1130 K2=-FX/FCU< IX*N) 

IF (R2.LT.0.) R2S0. 

IF (K2-R42M) 1150*1140*1140 
1140 R42M=R2 
I42SIX 
N42=N 

1150 GO TO 1210 
1160 Rl=FX/FTu(IX*N) 

IF (Kl.LT.O.) Rlro. 

IF (K1-R51M) 1180*1170*1170 
1170 R51MSR1 
I51=IX 
N51=N 

1180 R2S-FX/FCU(IX»N) 

IF (K2.LT.0.) R2 =0. 

IF (R2-R52M) 1200*1190*1190 
1190 R52MSR2 
I 52s IX 
N52=N 

1200 GO TO 1210 
1210 CONTINUE 
GO TO 580 
C 
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STR 472 
STR 473 
STR 474 
STR 475 
STR 476 
STR 477 
STR 478 
STR 479 
STR 480 
STR 481 
STR 482 
STR 483 
STR 484 
STR 485 
STR 486 
STR 487 
STR 468 
STR 489 
STM 490 
STR 491 
STR 492 
STR 493 
STR 494 
STR 495 
STR 496 
STR 497 
STR 498 
STR 499 
STR 500 
STR 501 
STR 502 
STR 503 
STR 504 
STR 505 
STR 506 


1220 FORMAT (Z/52H0***** STRESS ANALYSIS NOTE *****/STR 507 
1/8X4HT1MS » 8X4HY2MS * 8X4HC3MS * 8X4HC4MS » 8X4HF5MS » 8X4HF6MS * 8X4HWBMS » 8XSTR 508 
24HDMAX * 9X3HEMS » 8X4HEMAX/ 1 OE 12 • 4 ) STR 509 


1230 FORMAT (//52H0***** STRESS ANALYSIS NOTE ****o/STR 510 
1/8X4HMSFT » 8X4HMSFC * 8X4HMSHS * 8X4HMSIT » 8X4HMSI C * 8X4HMSCT » 8X4HMSCC » 8XSTR 511 
24H0MAX* 9X3HEMS* 8X4HEMAX/10E12«4 ) STR 512 

1240 FORMAT (///101H *************** STR 513 

1PR0BLEM ABORTED ****»********^//42H STR 514 

2 ALLOWABLE TEMPERATURE*E15.5»35Hr OF THE TPS IS EXCEEDED BSTR 515 


3Y ELEMENT I 3* 16H* TEMPERATURE s E15.5) STR 516 

1250 FORMAT (34H0***** END OF NOTE ****♦) STR 517 

1260 FORMAT <//58H STRESS CONSTRAINTS EXCEEDEO - PANEL THICKNESS RESIZESTR 518 
ID TO /8H TC =F 6 • 3 * 4H IN./8H TS =F6.3»4H IN./8H HH =F6.3*4STR 519 


2H IN,/) STR 520 

1270 FORMAT <//64h PANEL THICKNESS HAS EXCEEDED 6 INCHES - STRESS ANALYSTR 521 


ISIS ABORTED) 
END 


STR 522 
STR 523- 
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SUBROUTINE THERMO 


ips.py.rhos.rhoy.smu.tmu.ymu.pg 

COMMON/T IFO/ IEQOS. ITRAS 
COMMON/TPS/A(20) , Q (9) »R.X(9) 
COMMON AL .ALPHA (99) 

1 , AOF A * AOFE * AROD 

2. BATA #BE .BETA (99) 

3 » DELTA *OlAM .DIST (9) 

4»EAT(20»99) »EDOT(20.99) »EMIS(9) 
5»FNET(20) 

6»GW(20.99) 

7. IQINP 
8.NC0LM 
9»NMAf 

* t NSEG 
S.PINP(99) 

$ » RHOI 
S.STI 
J.TCl 

4»TINSD(99> 

* » XEMIS 
DIMENSION 


»FSU(20.99).FT(20) 


»HH 

» ITURB 
» NCR 
* NM I N 
•NTRAJ 
• uCONL (9) 
.RYE 
.STOOP 
. TEMP( 9.9) 
»UF 

.XST6(99) 

G(10) 


. HI NS 

.iwalt 

, NCRC 
.NPRT 
»N33 

, QCONT ( 9 ) 
,RYI 

♦ T (20.99) 
» THETA 


.ALT (99) 

.AS 

.BF 

*DST 

»FACC 

»FTU(20.99 
.HINSD (99 ) 
.MAT (9»9) 
»NF 
f NPSG 
.PE 

»QINP(99) 

»SL 

.TALLW (9) 

» TI 


» VFACT ( 9. 18) » Vl 
. XX ( 20 ) »Y(9) 


DATA (G(l)» 


♦•♦♦♦ENTHALPY FUNCTIONS 


PR=0.71 

JW=NCOLM 

IF (IWALT.EQ.1) JW=1 

GO JO (10.30,10.10.270.270.290) ICONF 
<;♦♦ ♦♦♦CROSS-FLOW CORRECTION 
10 IF ( AOFE »EQ» 0 • ) GO TO 20 

VBAR=,44d*( ,745+3. 14*AR0D) ♦TAN (AOFE) 
VX0Ds2» ♦VBAR^DIST ( 1 ) /DIAM 
XFLO=SG)RT( (l.-l./EXP(VXOD) )/VX0D) 
XFLL=1./XFL0 

XFLT= ( ,5*VXOu/( 1 ,-l«/EXP ( . 5*VXOD) ) ) ♦*0,2 
GO TO 30 
20 XFLLS1.0 
XFLO=1.0 
XFLT=1.0 

30 DO 200 I=l»Jw 
^♦♦♦♦TRANSITION 

KYU=RHOE ♦VE/EMU 

IF (ICONF. EQ. 2) GO TO 50 

KYE=RYU+DIST(I) 

REC=0,84 

IC=5 

GO TO 90 

40 KOMU=SQRT(RHOR/RHOE*RMU/EMU) 
CAs.554^r0MU*XFL0 
TBLsCA^DlST ( I )/SQRT(RYE) 

CB=CA^RYU**0 . 3/AME 
FDL=CB^SQRT(DIST(D) 




THR 

1 



THR 

2 

»XMI,XM2.XVI 

»YVI, 

THR 

3 



THR 

4 

< 


THR 

5 



THR 

6 

»AME 

.AMI 

THR 

7 

» Ax ( 9 » 1 ) .9) , AY ( 9 * 1 1 » 

9) THR 

8 

.BFL 

»BL 

THR 

9 

♦E (20.99) 

.EALL 

THR 

to 

.FCU(20»99) 

.FCY ( 20.99) THR 

11 

>)»FVE 

»F07 

THR 

12 

.ICONF 

.ILINKO 

THR 

13 

»MPT(9»9) 

»MR(9»16) 

THR 

14 

»NI ( 18) 

.NINS 

THR 

15 

.NR ( 18) 

»NRSG 

THR 

16 

.PHI 

»PI 

THR 

17 

»GNET(9) 

,RHO (9) 

THR 

18 

»SLS 

.staat 

THR 

19 

.TAMP (9* 9) 

.TAU 

THR 

20 

.TIME (9°) 

.TINS 

THR 

21 

.V INF (99) 

.WROTE 

THR 

22 

.ZZ(20) 


THR 

23 



THR 

24 

4.1877E-2.-5 

.5055E-4» 

THR 

25 

3236E-10/ 


THR 

26 



THR 

27 



THR 

28 

I5E-6*E*^3 


THR 

29 

!3676E**9*T ++Z 

* s' 

THR 

30 



THR 

31 



THR 

32 



THR 

33 



THR 

34 



THR 

35 



THR 

36 



THR 

37 


' ’ ‘ * - <* 

THR 

38 



THR 

39 



THR 

40 


•• 

! THR 

41 



THR 

42 



THR 

43 



THR 

44 



THR 

45 



THR 

46 



THR 

47 



THR 

48 



THR 

49 



THR 

50 



THR 

51 



THR 

52 



THR 

53 



THR 

54 



THR 

55 



THR 

56 



THR 

57 



THR 

58 
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FDT=12. 666-17. 264*A0FE4>23.777*A0FE**2 

IF (FOL.GT.FDT) GO TO 60 

IC=1 

60 TO 120 
50 RYE=RYU*0IAM 
RYT=1.E5 

IF (RYE.GT.RYT) GO TO 70 
IC=1 

RECsQ.84 
GO TO 90 

60 XV0=(FDT/Cd>**2 
RYT=RYU*XVO 

70 IF (RYE.GT »2.*RYT) GO TO 80 
IC=2 

tfr=rye/ryt-i.o 

GO TO 90 
00 IC=3 

RECsO.89 

IF (IC0NF.E0.2) GO TO 130 
90 RECI=EI+REC*VE**2/50061.5 
C*****ECKERT REFERENCE ENTHALPY 

RI=0.28*EI*0.22*RECI+0.5*WI(I) 

IF (RI.GT.13oO.) GO TO 100 
rR=FTEMP(RI) 

RHORsPE/ ( 1714 .87*TR ) 

GO TO 110 

100 CALL AIR(2.4»PE»S»RI»Z»RH0R#TR,CS) 

110 RMU=FMUT(PE»TR) 

120 IF (IC.EQ.5) GO TO 40 
RYRsRHOR*VE*uIST( I )/RMU 
IF (IC.NE.2.0R.REC.NE.0.84) GO TO 130 
RYRL=RYR 
RHOLsRHOR 
RECsO.89 
RECILsRECI 
GO TO 90 

130 GO TO (140»170»170) IC 
140 IF ( IC0NF.E0.2) GO TO 270 
CFS0.644/SGRT(RYR) 

ST=0 . 5*CF/PR** ( 2 . /3 . ) 
HW=32.174*RHOR*VE*ST*XFLL*QCONLU > 

GO TO 160 
150 HW=H*QCONL ( I ) 

160 ID=1 

GO TO 210 

170 IF ( 1TURB.EQ.2) GO TO 240 
IF ( ICONF.EQ .2) GO TO 290 

IF (ITRAS.EQ.2) RYR=RYR*(DIST(I)-XVO)/DIST(I) 
CF=0.370/(ALOG10(RYR) )**2.584 
ST=0 . 5*CF/PR** ( 2 . /3. ) 

180 HWT=32. 174*RH0R*VE*ST*XFLT*QC0NT ( I ) 

GO TO 200 
190 HWT=H*OCONT(I) 

200 10=2 

210 IF (IC.NE.2.0R.ID.NE.2) ®0 TO 220 
RYRsRYRL 
RHORsRHOL 
GO TO 140 
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220 IF (IC.NE.2) GO TO 230 
HW=TFR*HwT+(1.0-TFR)*HW 
RECI=TFR*RECI+(1.0-TFR)*RECIL 
230 IF (IC.EQ.3) HW=HWT 
H=Hw 

Q ( I )=H* (KECI-WI ( I ) ) 

60 TO 260 

C*****SPALOING-CHI 
240 D1=WI(I)/EI 

D2=0.2*REC*AME**2 

03=1.0+02-01 

D4=SQRT(D3**2+4.0*D1*D2) 

Q5=ASIN ( ( 2 . 0+D2-D3) /04) +ASIN ( 03/04 ) 

FC=(D5/SGRT(D2> )**-2 
FR=(RECI/WI(I) )**0.772/Dl**0.702 
FX=FR/FC 

IF (ITRAS.E0.2) RYE=RYE* (DIST ( I )-XVO) /DIST ( I ) 
06=AL0G(FX*RYE) 

07=1.0 

08=0.0 

DO 280 K=2 » 10 
D7=Db*07 

250 D8=08+G(K)*07 

CF=(EXP(D8+G(1) ) )/FC 

SS=1.+5.*SQRT<FC*CF/2.)*(PR-1.+AL0G{ (5,*PR+1. )/6. ) ) 
ST=0 • 5+CF/SS 
RHOR=RHOE 
GO TO 180 
260 CONTINUE 
GO TO 340 
C*****FAY-RIDDELL 

270 mMU=FMUT ( PE * TEMP ( 1 » 1 ) ) 

RHOw=PE/ < 1714 .87+TEMP (1,1)) 

RMW=(RH0W*WMU)**0.1 

RM0=(RHOY*YMU>**0,4 

0UX=2 . *SQRT ( 2 . * ( PY-P I ) /RHOY ) /D I A M 

H=30 . 25*RMQ*RMW*SQRT ( DUX ) 

IF (IC0NF.EQ.5) GO TO 280 
H=0,75*H* (SIN(AOFE) )**1.2 
RECIL=STI 
KECI=STI 

IF (AROD.LT. 0.0001) GO TO 280 
H=H*SQRT ( 0 . 745+3 . 14+AROD ) /I . 5215 
280 IF (IC0NF.E0.2) GO TO 150 
IS=1 

GO TO 310 

C*****BECKW ITH-GALLAGHER 
290 RMS=(RH0S*S«U)**0.8 

0UX=2 . +SQRT ( 2 . * ( PS-P I ) /RHOS ) /D I AM 

H=1 . 30622* ( V I *GOS ( AOFE ) /TMU ) **0 , 6*OUX**0 . 2*RMS 

REC=.916-.122*A0FE+.258*A0FE**2-.1*A0FE**3 

RECI=REC*STI 

IF (AROD.LT. 0.0001) GO TO 300 
H=H» ( ( 0 . 745+3 . 14+AROD ) /2. 315 ) **0 . 2 
300 IF ( IC0NF.E0.2) GO TO 190 
IS=2 

310 DO 330 I=l»Jw 

IF (IS. EG. 2) GO TO 320 
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u ( I ) sH* ( STX-W I ( I ) ) *OCONL ( I ) THR 175 

GO TO 330 THR 176 

320 G< n=H*(RECI-WKI) >*QCONT(I> THR 177 

330 CONTINUE THR 170 

340 IF (IWALT.EQ.2) GO TO 360 THR 179 

DO 3bO I=1#NC0|.M THR ISO 

350 G(I)=0<1) THR 181 

360 RETURN THR 182 

END THR 183- 
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OVERLAY (P5490,l,l) 




INI 


PROGRAM 1NPUT1 




INI 

1 





INI 

2 

COMMON/BLOCKb/ IPRINT 

, NC, NH, 

NLC , NV, P2 , VB 


INI 

3 

COMMON /FLAGS/ IFIRST 

, ISTRES, 

IFATIG, IWTCST 


INI 

4 

COMMON /LINK/ NS£CT»TC.TS,TSKIN1,TSKIN2,TINS1»TINS2*TINS3»XoST 

INI 

5 

COMMON /SONIC1/ AE 

,AI 

, AIY , AMACH , AMF 

, AW , 

INI 

6 

lbW » C ( 4 ) ,D 

,DREF 

, DT ( 4 ) ,DVEH ,EP,EPP 

, HC , 

INI 

7 

2 HF ,HPAN ,IPAD 

, I PF ( 4 ) 

, IPFI ,KFLEX ,NENG 

,npan » 

INI 

a 

30F , GL ,REY 

, RHOP 

,timef ,tj ,tt 

, V J , 

INI 

9 

4 VS , vU ,vv 

, WEJ 

, WER ,XI ,XJ 

, XL , 

INI 

10 

5YCL . Y P 




INI 

11 

COMMON/TIFO/IEQOS, itras 



INI 

12 

COMMON/TPS/A < 20) »Q(9) 

, R, X ( 9) 



INI 

13 

COMMON AL 

.ALPHA (99 

) , ALT (99) , AME 

, AMI 

INI 

14 

1 r AOFA »A0FE 

, AROD 

.AS , AX (9,H,9) 

, AY< 9 , 11,9) INI 

15 

2 , BAT A » BE 

, BETA ( 99) 

,BF ,BFL 

,BL 

INI 

16 

3 » DELTA »OIAM 

»DIST (9) 

»DST ,E( 20,99) 

.EALL 

INI 

17 

4 » EAT (20,99) , EDOT (20,99) ,EMIS(9) 

,FACC ,FCU(20»99) 

,FCY (20,99) INI 

18 

5 , FNET ( 20 ) , FSU (20,99) , FT ( 20 ) 

,FTU(20,99) , FvE 

*F07 

INI 

19 

6 , G( 20 ,99 ) *hH 

,HINS 

,HINSD(99) , ICONF 

, ILINKO 

INI 

20 

7 , IQINP , ITURB 

,iwalt 

,MAT (9,9) , MPT ( 9 , 9) 

, MR ( 9 , 18) 

INI 

21 

8 , NCOLM ,4CR 

, NCRC 

,NF ,NI ( 18 ) 

,NINS 

INI 

22 

9,NMAT ,NMIN 

,NPRT 

,NPSG , NR ( 18 ) 

»NRSG 

INI 

23 

*,NSEO , NTRA J 

, N33 

,pe , phi 

,PI 

INI 

24 

% , PlNP ( 99 ) » UCONL ( 9 ) 

,QCONT (9) 

, QlNP (99) ,QNET(9) 

,RHO ( 9) 

INI 

25 

l.RHOI »kYE 

, RYI 

,SL ,SLS 

,STAAT 

INI 

26 

* , STI , STOOP 

» T (20,99) 

,TALLW(9) , TAMP { 9 , 9 ) 

,tau 

INI 

27 

t » TCI ,TEMP(9,9) 

.THETA 

,TI , TIME ( 99) 

.TINS 

INI 

28 

$ , T 1NSD ( 99 ) »uF 

, VFACT (9, 

18). VI , VINF ( 9°) 

, wrote 

INI 

29 

$,XEM1S , XSTG ( 99 ) 

, XX ( 20 ) 

, Y(9) ,ZZ<20) 


INI 

30 





INI 

31 

DIMENSION CONF (7) ,TURB(4) , WALT ( 4 ) » ANGL (4) ,QLOC ( 3,4 > » ID ( 

9,9) 

INI 

32 

DIMENSION ANL ( 4 ) , ANRMS ( 4 ) , ANML ( 4 ) »SCR ( 4 ) ,PF ( 4 ) ,CY<4> ,SLD<4) , 

INI 

33 

1SPMAX ( 4 ) , TITLE (13) 




INI 

34 





INI 

35 

DATA C0NF/5HPLATE,3HCYL»4HC0NE, 

5 HWEDGE , 6 HSPHERE , 5HL-C YL , 5HT-CYL/ 

INI 

36 

DATA TURb/ 6 HECKERT, 

6 HSPALOI, 

6 H , 6 HNG-CHI / 


INI 

37 

DATA WALT/ 6HUNIF0R, 

6HN0NUNI, 

6 HM , 6HF0RM / 


INI 

38 

DATA ANGL/ 6 HVARIED, 

6HC0NSTA, 

6H , 6 HNT / 


INI 

39 

DATA QLOC/ 6 HCALCUL, 

6 HATED , 

6 H , 6 H INPUT , 6 HO- 

HOT, 

INI 

40 

1 6H WALL , 6 HINPUT , 

6 HT , 

6 H , 6 HINPUT , 6 HQ- 

COL, 

INI 

41 

2 6 HD WALL/ 




INI 

42 





INI 

43 





INI 

44 





INI 

45 

WRITE (6,440) 




INI 

46 

DO 20 1=1,10 




INI 

47 

READ (5,450) Ol, TITLE 



INI 

48 

IF (EOF, 5) 30,10 




INI 

49 

10 WRIT t (6,460) TITLE 




INI 

50 

IF <Ol.GT.Q) GO TO 40 




INI 

51 

20 CONTINUE 




INI 

52 

WRITE (6,470) 




INI 

53 

30 STOP 




INI 

54 

40 READ (5,480) ICONF , IQCON, IQINP , 

I TURB * I WALT , NANG , NCOLM , NSEG , NM AT , NR I N 1 

55 

1SG,NCRC »nsect *nins»nf 

, NPRT , ISTRES, IFATIG, IWTCST, IEQ0S, ITRAS 

INI 

56 

NPSG=14 




INI 

57 
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IF (NSECT.EQ.4) NPSG=12 
IF (NSECT.EQ.3.0R.NSECT.EQ.6) NPSG=lO 
IF (nSECT.EG.T) NPSG=13 

READ (5*490) THETA*PHI » XDST *DI AM * AROD* XEM1S * FACC 

READ (5*490 ) staat»delta»wrote»stoop 

WRITE (6*570) CONF(ICONF) ,TUR8(ITUR8) *TURB(ITURB+2) *WALT(IWALT) 
1LT ( IwALT+2) »ANGL(NANG) ,ANGL(NANG+2) . ( GLOC ( I » IQINP > » 1 = 1 * 3) 

WRITE (6*580) THETA*PHI 

WRITE (6*590) XDST*DIAM»AR0D»XEMIS*STAAT»ST00P, DELTA, WROTE 

IF (NMAT.EQ.O) GO TO 340 

READ (5*490) AS,R,HH*TS*TC»SL*SLS*8E 

HEAD (5*490) F07»UF*OST»EAlL»CRN,BF*BFL*BL 

NCR=IFIX (CRN) 

IF (NSECT.EQ.7) GO TO 50 

WRITE (6*800) AS * R » HH , TS * TC * SL * SLS * BE ► F07 * UF . DST » EALl » CRN » BF * BFL i 
1L 

IF (NSECT.NE.8) GO TO 60 
CALL ABLATION INPUT ROUTINE 
CALL INPUT2 
GO TO 140 
) AS=1. 

WRITE (6*810) AS»R*HH»TS»TC»SL*SLS*BE»F07*UF*DST»EALl»CRN*BF»BFLi 
1L 

CALL INPUT2 

READ (5*500) I PR I NT *NH»PZ. VB 
NC =cj 
NLC = 1 
NV=/ 

WRITE (6*550) IPRINT»NC»NH,NLC*NV*PZ»VB 
I HEAD (5*490) ( TALLW ( I ) * 1 = 1 ,9) 

READ (5*490) (EMIS(I) *1=1*9) 

HEAD (5*490) (RHO(I) *1=1*9) 


I PR I NT *NH»PZ. VB 


WRITE (6*550) IPRINT»NC»NH,NLC*NV*PZ»VB 
HEAD (5*490) ( TALLW ( I ) * 1 = 1 *9) 

READ (5*490) (EMIS(I) *1=1*9) 

HEAD (5*490) (RHO(I) *1=1*9) 

00 100 1 = 1 * NMAj 

READ (5*480) ( (ID(I.J) ,MPT(I,J) ) ,J=l*H) 
DO loo J=l*li 

IF (ID(I*J),EQ,0.) GO TO 100 
KK=MPT( I . J) 

IF (j.EQ.l) GO TO 80 
IF (ID(I*J).EQ,2) GO TO 60 
00 70 K=1 * KK 
AX(I,J,K)=AX(I,J-1,K) 

GO TO 90 

HEAO (5.490) ( AX < I . J*K ) *K=1 *KK ) 

HEAD (5.490) ( AY ( I » J» K ) »K=1 ,KK ) 


80 HEAO (5.490) 

90 HEAD (5.490) 

LOO CONTINUE 

WRITE (6.600) 
WRITE (6.700) ( 
WRITE (6.710) ( 
WRITE (6*720) ( 
WRlTt (6*730) 

DO Ho 1=1 » NNAT 


( Ir 1=1*9) 

(TALLW(I),I=1,NMAT) 
(EMIS ( I ) * 1=1 ,NMAT ) 
(RHO(I) ,I=1*NMAT) 


WRITE (6*760) I*(AX(I*J*1)»AY(I*J*1)*J=1»4) 
DO HQ K=2,9 

WRITE (6*780) ( AX ( I . J#K ) * AY ( I » J* K ) , J=1 , 4) 
WRlTt (6*740) 

DO 120 I=1*NMAt 

WRITE (6*760) I . ( AX < I * J* 1 ) » AY ( I , J , 1 ) ♦ J=5* 8) 
DO 120 K=2»9 
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120 WRITE (6*760) ( AX ( I » J* K> * Ay ( I * J, K ) . J=5 * 8) 

WRITE (6*750) 

DO 150 I=1»NMAT 

WRITE (6*770) I . < AX < I . J* 1 ) » AY ( I * J . 1 > . J=9. 1 1 ) 

DO 150 K=2*9 

130 WRITE (6*790) ( AX ( I * J»K ) * Ay ( I * J , K ) » J=9 * 11 ) 

140 READ (5*490) (X(I)*I=1*9) 

K=9 

IF (NCOLM.GT.l) GO TO 150 
K = 1 

IF (X(l).EG.O.) X(l)=l. 

150 IF UQCON-2) 160*180*200 
160 DO 170 1=1*9 
QCONL (I >=1.0 
170 QCONT ( I ) =1 • 0 
GO TO 210 

180 READ (5*490) (QCONL < I > » 1=1 . 9 ) 

DO 190 1=1*9 
190 QCONT(I)=QCONL(I) 

GO TO 210 

200 READ (5*490) (QCONL ( I ) ♦ 1 = 1 * 9) 

READ (5*490) (QCONT(I) *1=1*9) 

210 WRITE (6*610) 

IF (NSECT.LT. 7) GO TO 220 
WRITE (6*630) X.QCONL. QCONT 
GO TO 280 

220 KEAD ( 5 * 990 ) ( Y ( I ) * 1 = 1*9) 

DO 230 J=1*NSEG 

230 READ (5*510) (MAT ( I * J ) » TAMP ( I * J ) , 1 = 1 * K ) 

IF (NCOLM.GT.l) GO TO 240 

WRITE (6*620) Y * ( MAT ( 1 » I ) » 1 = 1 * 9 ) * (TAMP ( 1 , 1 ) , 1 = 1 * 9) 

GO TO 280 

240 WRITE (6*630) X * QCONL , QCONT 

WRITE (6*640) ( MAT ( I * 1 ) » 1 = 1 * 9 ) * Y ( 1 > , ( TAMP ( I » 1 ) * 1 = 1 » 9) 

DO 250 J=2*NSEG 

250 WRITE (6*650) J , ( MAT ( I , J ) * 1 = 1 * 9 ) * Y ( J) * ( TAMP( I , J) * 1 = 1 , 9 ) 
WRITE (6*660) 

IF (NRSG.EQ. u ) GO TO 200 
DO 260 J=1 * NRSG 

260 READ (5*520) NR ( J) ,NI ( J) * (MR ( I * J) *VFACT ( I * J) * 1 = 1 *9) 
WRITE (6*670) 

DO 270 J=1 * NRSG 

270 WRITE (6*680) NR ( J ) » NI ( J ) * ( MR ( I , J ) , VFACT ( I * J) * 1=1 » 9’ 

280 IF (IFATIG.NE.O) GO TO 390 

READ (5*480) IPFI * ( IPF ( I > . 1 = 1 * 4 ) , IPAD* KFLEX * NPAN 

DO 330 N1=1*IPFI 

N2=IPF(N1) 

GO TO (290*300*310*320)* N2 
290 READ (5*490) DT (N2 ) * XL * RET* VU* QL* AMACH 
GO TO 330 

300 READ (5*490) DT (N2) » TT * WER, D» VS * X I * DVEH » YCL# DREF 
GO TO 330 

310 REAO (5*490) DT(N2) »AE»VJ*WEJ»VV»TJ*XJ*YP 
GO TO 330 

320 READ (5*490) DT(N2) 

330 CONTINUE 

READ (5*490) HPAN*HC * AI * AI Y * AW * BW *EP » T IMEF 
READ (5*490) (C(I) *1=1.4) »RHOP 
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WRITE ( 6 * 820 ) IPAD,KFLEX*NPAN.DT»XL*REY*VU*QL*AMACH*TT»WEP»D*VS»XIIN1 
1*DVEH*YCl*OREF,AE,VJ*WEJ*VV*TJ»XJ»YP*HPAN»HC*AI,AIY»AW*BW*EP,TIMEFIN1 
2»C#KH0P INI 

340 IF (JI.EG.3) Go TO 390 INI 

DO 350 1=1*99 INI 

READ (5# 530) TIME ( I ) » ALT ( I ) * VINF ( I ) * ALPHA ( I ) »BETA ( I ) *HINSD( I ) »TINSIN1 
ID ( I ) » XST G ( 1 ) # NREADT INI 

NTRAJsI INI 

IF (NREADT. GT.O) GO TO 360 INI 

CONTINUE INI 

WRITE ( 6 * 540 ) - - - - INI 

STOP INI 

IF (NANG.LT.2) GO TO 380 INI 

DO 370 I=2»NTRAJ INI 

ALPHA(I)=AlPhA(1) INI 

bETA(I)=BETAU) INI 

WRITE ( 6 * 560 ) ( ( I » TIME ( I ) * ALT ( I ) i VINF Cl)* ALPHA ( I ) » BET A ( I ) * HINSD ( I ) INI 
1»TINSD(I)»XSTG(I)),I=1»NTRAJ) INI 


350 


360 


370 

380 


400 

410 


420 

430 


WRITE (6*690) 

IF (NMAT.GT.O) 
X(l)=l. 
GCONL(1)=1.0 
OCONT (1)=1.0 
DO 410 1=1*9 
X(I)=X(I)/12. 
Y(I)=Y(X)/12. 

IF (NCRC.LT.c) 
XX(1)=X(1) 

DO 420 I=2*NC0LM 
XX(I)=XX(I-1)+X(I) 
WRITE (6*440) 
RETURN 


GO TO 400 


GO TO 430 


390 WRITE (6*690) INI 

INI 
INI 
INI 
INI 
INI 
INI 
INI 
INI 
INI 
INI 
INI 
INI 
INI 
INI 

(1H1) INI 

(11*13*6) INI 

(1X13A6) INI 

(////94H0***** NUMBER OF TITLE CARDS IS GREATER THAN 10 OR INI 
NOT ENTERED ON LAST TITLE CARD ****♦) INI 

(2014) INI 

(10F8.0) INI 

(I5*5X*I5»2F10.0> INI 

(9<I2*F6.0>> INI 

(I2#I6»9(I2»F6.0>) INI 

(8F8. 0*116) INI 

(////87H0***** NUMBER OR TRAJECTORY CARDS IS GREATER THAN 9IN1 
10 OR LAST CARD WAS NOT FLAGGED ***♦*) INI 

550 FORMAT ( ///34H0***** R S I INPUT *****//l6X6HlPRlNT » 13X2IN1 
1HNC » 13X2HNH * 12X3HNLC * 13X2HNV » 13X2HPZ » 1 3X2HVB/7X » 51 15 * 2E15 . 3) INI 

560 FORMAT ( /// 44 HO***** TRAJECTORY INPUT *****//4XlHI5lNl 
1X7HT IME ( I ) 6X6HALT ( I ) 5X7HVINF ( I ) 4X8HALPHA ( I ) 5X7HBETA < I ) 4X8HHINSD ( I ) INI 
24X8HTINSD<I)5X7HXSTG(I)//(I5»8E12.4> ) INI 

570 FORMAT (//Y//25H PROGRAM OPTIONS USED/27H C0NFIGURATI0NIN1 

l- *A6/27H TURBULENT HEATING- *2A6/27H WALL TEMPEINl 

2RATURE- »2A6/27H ANGLE OF ATTACK- .2A6/27H LOCAL INI 

3HEAT FLUX- *3Ab/) INI 

580 FORMAT ( /5X . 46 HOIRECTION COSINES OF OUTER NORMAL FROM SURFACE/14H INI 
1 THETA = »F 5.1/14H PHI = »F5.1) INI 

590 FORMAT ( /5X* 30HDISTANCE FROM LEADING EDGE *F8.4*3h FT/35H BINl 


440 

450 

460 

470 


490 

500 

510 

520 

530 

540 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
1JI WAS 
460 FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 
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DIAMETER 

DIAMETER ,F8.4/35H 
INITIAL TIME 


»F8«4»3H FT/35H SHOULDER RADIUS/BIN1 
EXTERNAL SURFACE EMISSlVlTY »F 6 .2//35IN1 

*F8.1»4H SEC/35H END TIME INI 


#F8 » 1 » 4H SEC/35H 


SEC/35H 


PRINT OUT INTERVAL 


CALCULATION 


10DY 
200Y 
3H 
4 

5L »F8.1»4H 

6SEC/V > 

bOO FORMAT <///5QHO***** MATERIAL 
116H MATERIAL NUMBER, 9<7X» 1H-, 11 , 1H-) ) 

610 FORMAT ( ///45H0***** CONDUCTlO 
620 FORMAT (108H SEGMENT NUMBER 
1 -4- -6- -6- 

2SS FT .9F10.4/18H MATERIAL 

3,9F10.0//) 

630 FORMAT <111H COLUMN NUMBER# I -1- 

1 -4- -5- * -6- -7- -8- 

2H, x(I> IN »9F10,4/16H HEATING FACT0RS/21H 

3 #9F10.i/21h TURBULENT »9F10.1) 

640 FORMAT </2lH SEG.NO.# J = -1-, IlO* 1H*, I9>7U0/14 h 

1=,F7.4,F10.0,2H**,F8.0»7F10.0) 

650 FORMAT ( /18X * lH-» I 1 , 1H-, 9I10/F21 .4»9F1 0 .0 ) 


-7- 


P R 0 P E R T 
N 

- 1 - 

- 8 - 

»9I 10/18H 


660 FORMAT 
17H 

670 FORMAT 
1*//54H 
680 FORMAT 
690 FORMAT 
700 FORMAT 
710 FORMAT 
720 FORMAT 
730 FORMAT 


TIME INTERVAIN1 
»Fe.l»4H INI 
INI 

I E S *****//INl 
INI 

N P U T *****//) INI 

-2- -3- INI 

-9-/1BH THICKNEIN1 
INITIAL TEMP. R INl 

INI 

-2- -3- INI 

-9-/21H WIDTIN1 
LAMINAR INI 

INI 

THICK., Y(J) INI 
INI 
INI 


<1X»6U<1H-)//5X#8H — NOTE— /27H * s MATERIAL NuMBER/3INl 

♦* = INITIAL TEMPERATURE DEG R//> INI 

</5bH0***** RADIATION INTERCHANGE ****IN1 
SEG Nb. NI INTERCHANGE NEIGHBORS AND VIEW FACTORS/) INI 
(IX, 2h (,I2,1H) ,I5»2X,9<2H ( , 12, 1H) ,F6.3) ) ) INI 

(///3oH0***** END OF INPUT ****♦) INI 

( 18H0 ALLOWABLE TEMP. R,9F10.3) INI 

(11H0EMISSIVITY7X9F10.3) INI 

(18H0MATERIAL DENSITY 9F10.3) INI 

<///loH MATERIAL NUMBER, 8X14HHEAT CAPACITY, 9X20HTHERMAL COIN1 
INDUCTIVITY, 9X14HY0UNGS MODULUS, 8X22HTHERMAL EXPANSION C0EF/12X4 ( 12IN1 
2X2HAX , 10X2HAY ) ) INI 

740 FORMAT <///16H MATERIAL NUMBER, 8X14HYIELD STRENGTH, 9X20HULT TENSILIN1 
IE STRENGTH, 5X22HLARSON-MILLER STRAIN 1 , 4X22HLARS0N-MILLER STRAIN 2IN1 
2/12X4 ( 12X2HAX , 10X2HAY ) ) INI 

750 FORMAT <///l6H MATERIAL NUMBER , 3X24HULT COMPRESSIVE STRENGTH, 5X18HIN1 
1ULT SHEAR STRENGTH, 10X14HSHEAR MODULUS/1 2X3 ( 12X2HAX , 10X2HAY ) ) INI 
760 FORMAT ( /I9» 7X, 4 ( 2X2E12. 3) ) INI 

( /I9, 7X, 3 (2X2E12. 3) ) INI 

(16X,4(2X2E12.3) ) INI 

(16X,3(2X2E12.3) ) INI 

(///36H0***** STRESS INPUT *****//13X2hAS, 14X1HRIN1 
1 , 13X2HHH, 13X2HTS, 13X2HTC, 13X2HSL, 12X3HSLS, 13X2HBE/8E15.3//12X3HF07IN1 
2,13X2HUF,12X3HDST,11X4HEALL,12X3HCRN»13X2HBF»12X3HBFL,13X2HBL/8E15IN1 
3.3) INI 

810 FORMAT ( ///36H0****4 STRESS INPUT *****//i3X2HAS, 14X1HRIN1 
1 , 13X2HHH, 13X2HTF, 13X2HTC , 13X2HSL, 12X3HSLS, 13X2HBE/8E15.3//12X3HF07IN1 
2 , 13X2HUF , 12X3HDST , 11X4HEALL * 12X3HCRN# 13X2HTB » 13X2HTR , 13X2HDC/BE15, INI 
33) INI 

820 FORMAT ( ///38H0***** FATIGUE INPUT *****//Hx4HlPAD10XINl 
15HKFLEX,11X4HNPAN,10X5HDT(1) ,10X5HDT(2) ,10X5HDT(3) ,10X5HDT( 4 ) ,13X2IN1 
2HXL/3I15, 5E15.3// 12X3HREY , 13X2HVU , 13X2H0L , 10X5HAMACH, 13X2HTT * 12X3HIN1 
3WER , 14X1HD» 13X2HVS/8E15. 3//13X2HXI » 11X4HDVEH» 12X3HYCL , 11X4HDREF , 13IN1 
4X2HAE, 13X2HVJ » 12X3HWEJ, 13X2HVV/8E15, 3//13X2HT J, 13X2HXJ, 13X2HYP, 11XIN1 
54HHPAN,13X2HHC,13X2HAI,12X3HAIY,13X2HAW/8E15.3//13X2HBW»13X2HEP»10IN1 
6X5HTIMEF,11X4HC(1) ,11X4HC(2) ,11X4HC(3) ,11X4HC(4) ,11X4HRH0P/8E15.3) INI 
END . INI 


770 

780 

790 

800 


FORMAT 

FORMAT 

FORMAT 

FORMAT 


232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 
287 
288- 
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SUBROUTINE INPUT2 



IN2 

1 




IN2 

2 

COMMON /ABcTN/ T» OIN» DTS» TX2 < 30 ) . VELX» IGINPP, DEL * APRNT 

* I NT » PE 

IN2 

3 

COMMON /aRRH/THETA{10) »AP,XB»SN,CA,XMTPT(10) »AOPT 


IN2 

4 

COMMON /0REV/ KUS»KAS,KOS#NAP»NPC»NIFPCM,OQINl ,PGIN2»0QIN3,KA»KU 

IN2 

5 

1# TMtLT 



IN2 

6 

COMMON /CCPS/CPGAS 



IN2 

7 

COMMON /CCSDOT/SOOT 



IN2 

8 

COMMON /QELX/ DELX1»DELX2*0ELX3 



IN2 

9 

COMMON /UMNO/ TKC<9)» XKC<9>» 

TCPC ( 9 ) » 

CPC (9) * 

IN2 

10 

1 TK v (9 ) » XKV (9»7 ) * TCPV<9)» 

CPV (9) » 

XNPM(4) » 

IN2 

11 

2 RHOBx ( 4 ) » XBM ( 4 ) » EMFB(4)» 

EMBB<4) » 

NKPBC4 ) , 

IN2 

12 

3 NCPb ( 4 ) » TXK(9»4)* XK<9»4)» 

TCP(9#4 ) f 

CPX(9»4) » 

IN2 

13 

4 NPM ( 4 ) » GAPX ( 4 ) # FTEST (4) * 

BTEST (4 ) * 

T£MDI(30)» 

IN2 

14 

5 TX1 ( 30 ) » TX2T < 10»6) * TUL1(30)» 

TUL2 ( 30 ) * 

A (30 ) t 

IN2 

15 

6 B ( 30 ) > C ( 30 ) » D ( 30 ) # 

j S(10) • 

R ( 1 0 ) * 

IN2 

16 

7 AB(S»6) » 8B<5»6) • CB(5»6)» 

OB (B»6) » 

SB ( 5 » 6 ) t 

IN2 

17 

8 KB1 ( S»6) t RB2(5»6)» TY(30)» 

CPB(9#6) » 

DxtHb) » 

IN2 

18 

9 XMDG ( 1 0 ) » RHO ( 10 ) » CP<10)» 

YK(10) » 

XKB(9t6) » 

IN2 

19 

* H ( 4 ) » IEM(IO) t PKV ( 7 ) » 

XV(10) » 

TS(10)» 

IN2 

20 

$ SR ( 10 ) » HX ( 20 ) » TW(20) 



IN2 

21 

COMMON /HF/ HF1,HF2»HF3 



IN2 

22 

COMMON /KAN/ KANl » KAN2 » KAN3 



IN2 

23 

COMMON/OlA/ TJO(IO) »CDJ(10) 



IN2 

24 

COMMON /PCM/ 0RIN1»QRIN2.QRIN3#QR0T1»QR0T2 

» grots 


IN2 

25 

COMMON /OST/ 0ST1.0ST2f0ST3 



IN2 

26 

COMMON /UNUM/ABLCt ABLK* BL.CHARCtCHARK# 

DT. Dx, 

EMV, EMC 

*IN2 

27 

1 ERR2 > FRR3» ERR4» EKR5r FENV , FV» HENVr 

HV t H300» 

117, 15 

» IN2 

28 

2 lo. NCPC» NCPV» NKC ♦ NKV » NMB » NP» 

NPBS r npf, 

NREC , NRS 

* I N2 

29 

3QL0SS » RHOC» RHOVt TABL#TBLOW»TCHAR» TEMPI/ 

TENV»TEST2r 

TREC, TV 

» IN2 

30 

4 VL. VLV rXLOST » XLSTV ♦ XMC» XM0C* XMDT • 

XMP, X M T » 

XNP, NHP 

» IN2 

31 

5 NTKVt NPKV»1QBLCK 


■< 

IN2 

32 

OIMENSIOn XIONT ( 12 » 4 ) * HEADNGC 12) 



IN2 

33 




IN2 

34 




IN2 

35 

15=2 



IN2 

36 

16=2 



IN2 

37 

117=2 



IN2 

38 

INT=1 



IN2 

39 

NTKV=0 



IN2 

40 

NPKV=0 



IN2 

41 

NPC=0 



IN2 

42 

KUS=10 



IN2 

43 

KAS=10 



IN2 

44 

KOS=10 



IN2 

45 

KAN1=0 



IN2 

46 

KAN2=0 



IN2 

47 

KAN3=0 



IN2 

48 

XLOST=0 , 0 



IN2 

49 

XMT=0.0 



IN2 

50 

XMDTSQ.O 



IN2 

51 

ERR2=0.0 



IN2 

52 

ERR3=0.0 



IN2 

53 

ERR4S0.0 



IN2 

54 

XMQC=0.0 



IN2 

55 

XLSTVsO.O 



IN2 

56 

NRS=2 



IN2 

57 

ERR5=0,0 



IN2 

58 
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SDOT=0.0 

IN2 

59 


aopt=i.o 

IN2 

60 



IN2 

61 


WRITE. (6*670) 

IN2 

62 



IN2 

63 


LOCATION FACTORS FOR CONVECTIVE AND RADIATIVE HEATING 

IN2 

64 


READ (5*610) SN*CA,XB,CPGAS*XMC,XMP 

IN2 

65 


WRITE (6,660) SN,CA*XB 

IN2 

66 


WRITE (6*690) CPGAS.XMC.XMP 

IN2 

67 



IN2 

68 


PROPERTIES OF ABLATION MATERIAL 

IN2 

69 


HEAD (5*600) (HEADNG(K) *K=1*12) 

IN2 

70 


READ (5*610) TABL*TCHAR*TREC»RHOV*RHOC*TBLOW*EMV*EMC,H300*VL» 

HV.FVIN2 

71 


i*tv»chark»charc*ablk*ablc 

IN2 

72 


read (5*620) NP,NKC#NCPC»NKV»NCPV*NREC*IQBLCK 

IN2 

73 


head (5*610) (TKC(K) »XKC(K) *K=1,NKC) 

IN2 

74 


HEAD (5*610) (TCPC(M) ,CPC(M) ,M=1,NCPC) 

IN2 

75 


IF (NKV.GT.O) GO TO 20 

IN2 

76 


READ (5*650) NTKV.NPKV*(PKV(I) »I=1*NPKV) 

IN2 

77 


DO 10 I=i*NTKV 

IN2 

78 

10 

READ (5*660) TKV ( I ) * ( XKV ( I , J) » J=1 ,NPKV ) 

IN2 

79 


GO TO 30 

IN2 

80 

20 

REAO (5*610) (TKV(L> *XKV(L) *L=1.NKV) 

IN2 

81 

30 

REAO (5*610) (TCPV(N) ,CPV(N) *N=1,NCPV) 

IN2 

82 


READ (5*610) (TS(I)»SR(I).I=1.NREC) 

IN2 

83 


WRITE (6*640) (HEADNG(K) *K=1,12) 

IN2 

84 


WRITE (6*700) TABL»TCHAR.TREC*RHOV*RHOC.TBLOW,EMv*£Mc,h300»VL 

*HV*FIN2 

85 


1 V * T V . CHARK . ChArC . ABLK , ABLC 

IN2 

86 


VL=VL/12.0 

IN2 

87 


VLV=VL 

IN2 

88 


WRITE (6*710) NP*NKC»NCPC.NKV.NCPV*NREC.IQ8LCK,NTKv*NPKV 

IN2 

89 


IF (NKV.GT.O) GO TO 50 

IN2 

90 


WRITE (6.720) (PKV(I) *I=1»NPKV) 

IN2 

91 


WRITE (6*730) 

IN2 

92 


DO 40 I=1*NTKV 

IN2 

93 


WRITE (6,740) TKV(I) * (XKVd.J) *Jsl*NPKV) 

IN2 

94 

40 

CONTINUE 

IN2 

95 


WRITE (6,750) (TCPV<I)*CPV(I)*I=1,NCPV) 

IN2 

96 


GO TO 80 

IN2 

97 

50 

WRITE (6*760) 

IN2 

98 


KLLL=MINQ(NKv,NCPV) 

IN2 

99 


WRITE (6*770) (TKV (L) , XKV (L) * TCPV (L) * CPV( L) » L=1 *KLLL ) 

IN2 

100 


IF (NKV-NCPV) 60,80*70 

IN2 

101 

60 

KLLLL=KLlL*1 

IN2 

102 


WRITE (6*780) (TCPV(L) »CPV(L) »L=KLLLL*NCPV) 

IN2 

103 


GO TO 80 

IN2 

104 

70 

kllll=klll+i 

IN2 

105 


WRITE (6*790) (TKV(L) ,XKV(L) »L=KLLLL*NKV) 

IN2 

106 

80 

WRITE (6*800) 

IN2 

107 


KLLL=MIN0 (NKC *NCPC ) 

IN2 

108 


WRITE (6*770) (TKC(L),XKC(L)*TCPC(L>*CPC(L)*L=1*KLlL) 

IN2 

109 


IF (NKC-NCPC) 90*110*100 

IN2 

110 

90 

kllllsklll+i 

IN2 

111 


WRITE (6*760) (TCPC(L) ,CPC(L) *L=KLLLL»NCPC) 

IN2 

112 


GO TO 110 

IN2 

113 

100 

kllll=klll+i 

IN2 

114 


WRITE (6*790) (TKC (L) ,XKC (L) »L=KLLLL*NKC) 

IN2 

115 

no 

WRITE (6,810) 

IN2 

116 
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n o 


C 



WRITE (6*820) <TS< I ) »SR< I > » I=1»NREC) 

IN2 

117 



IN2 

118 


PROPERTIES OF BACK-UP STRUCTURE 

IN2 

119 


WRITE (6*830 ) 

IN2 

120 


READ (5*630) NM8.NPBS.BL 

IN2 

121 


NAMbsNMB 

IN2 

122 


READ (5*620) NIFPCM 

IN2 

123 


IF (NIFPCM) i.30 * 130 * 120 

IN2 

124 

120 

CONTINUE 

IN2 

125 


PCM INPUT 

IN2 

126 


READ (5*840) NPC,NFIL*TMELT*HFUS*RH0FIL*FIFR 

IN2 

127 


NAMB=NMR+NFIu 

IN2 

128 

130 

CONTINUE 

IN2 

129 


READ (5*610) (XNPM(K) ,K=1*NMB) 

IN2 

130 


READ (5*850) (NKPB ( I ) *NCPB ( I ) » I — 1 #NAMB ) 

IN2 

131 


DO 140 K = l*Niv)6 

IN2 

132 


NPM(K)=XNPM(K) +0.00000002 

IN2 

133 

140 

CONTINUE 

IN2 

134 


WRITE (6*860) NMB.NPBS»BL 

IN2 

135 


bL=BL/12.0 

IN2 

136 


DO 200 1 = 1 * NAM0 

IN2 

137 


LKSNKPB ( i ) 

IN2 

138 


UCP=NCPB(I) 

IN2 

139 


READ (5.600) ( (XIDNT(K»!) ) *K=1»12) 

IN2 

140 


READ (5*610) ( (TXK(J*I) *XK( J.I) ),J=1.LK) 

IN2 

141 


READ (5.610) ( (TCP(J»I) .CPX(J.I) ) ,J=1*LCP) 

IN2 

142 


WRITE (6.870) ( XIDNT ( K . I ) *K=1 » 12 ) 

IN2 

143 


WRITE (6.880) 

IN2 

144 


KLLL=MIN0(LK.LCP) 

IN2 

145 


DO 150 Nsl.kLLL 

IN2 

146 


WRITE (6*770) ( TXK ( N. I ) . XK ( N* I ) , TCP (N. I ) ,CPX ( N, I ) ) 

IN2 

147 

150 

CONTINUE 

IN2 

148 


IF (LK-LCP) 160.200*180 

IN2 

149 

160 

KU_LL=KLeL+1 

IN2 

150 

* 

00 170 n=kllll»lcp 

IN2 

151 


WRITE (6.780) (TCP(N, I) .CPX(N.I) ) 

IN2 

152 

170 

CONTINUE 

IN2 

153 


00 TO 200 

IN2 

154 

180 

kllll=klll+i 

IN2 

155 


uO 190 NsKLLLL.LK 

IN2 

156 


WRITE (6*790) (TXK(N*I) .XK(N*I) ) 

1N2 

157 

190 

continue 

IN2 

158 

200 

CONTINUE 

IN2 

159 


READ (5.610) (RHOBX(L) *XBM(L) »EMFB(L> *EMBB(L) »L=1*NMb) 

IN2 

160 


READ (5.610) (H(J) »GAPX(J) .FTEST(D) »bTEST( J) » J=1»NMB) 

IN2 

161 


WRITE (6.890) 

IN2 

162 


00 210 u.u=i*nmb 

IN2 

163 


WRITE (6.900) LEJ»RHOBX(LLJ> .XBM(LLJ) *EMFB(LUJ) .EMBB(LLJ) 

»XNPM(LLJIN2 

164 

1) 

IN2 

165 

210 

CONTINUE 

IN2 

166 


IF (NIFPCM. LE.O) GO TO 220 

IN2 

167 


WRITE (6*910) 

IN2 

168 


WRITE (6*920) NPC»TMELT.HFUS»RHOFIL»FlFR 

IN2 

169 

220 

CONTINUE 

IN2 

170 


WRITE (6*930) 

IN2 

171 


DO 230 J=1»NMB 

IN2 

172 


WRITE (6*940) J»H ( J) . 6APX ( J ) * FTEST (U) . BTEST ( J) 

IN2 

173 

230 

CONTINUE 

IN2 

174 
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IF (NIFPCM) 450 * 450 » 240 


IN2 

175 

240 

CONTINUE 


IN2 

176 


CALCULATION OF REQUIRED PARAMETERS FOR HANDLING PCM 

IN2 

177 


NUBsNPC-1 


IN2 

178 


NBC=NPC-2 


IN2 

179 


NAPsNP 


IN2 

180 


IF (NBC.EO.O) GO TO 260 


IN2 

181 


DO 250 JL=1*N8C 


IN2 

182 

250 

NAPsNAP-J- ( NPM ( JL ) -1 ) 


IN2 

183 

260 

NAPSNAP+ ( NPM ( NUB ) -2 > 


IN2 

184 


KU=NP+1 


IN2 

185 


00 260 I=1#NMB 


IN2 

186 


kum=npc-i 


IN2 

187 


IF <KuM) 290*290*270 


IN2 

188 

270 

KUSKU+NPMd) 


IN2 

189 

260 

continue 


IN2 

190 

290 

KASKU+NPM(NPC) 


IN2 

191 


0ELXi=XBM(NPC-l)/(24,*(NPM(NPC-l)-l ) ) 


IN2 

192 


DELX2=XBM ( NPC ) / ( 24 . * ( NPM ( NPC ) -1 ) ) 


IN2 

193 


DELX3=XBM ( NPC+l ) / ( 24 * * ( NPM < NPC+1 > — 1 > > 


IN2 

194 


HF1SRHOBX ( NPC ) *DELX2*HFUS 


IN2 

195 


HF2=2.>fHFl 


IN2 

196 


HF3=HF1 


IN2 

197 


LAKsNKPB ( NPC ) 


IN2 

190 


LEKsNCPB(NPC) 


IN2 

199 


IF (FIFR.EQ.U.) 60 TO 380 


IN2 

200 


CALCULATION OF EQUIVALENT PROPERTIES OF PCM 

and FILLER 

I M2 

201 


L0=NKP8(NAMB) 


IN2 

202 


LA=NCPB(NAMB) 


IN2 

203 


00 330 J=1»LAK 


IN2 

204 


DO 320 IK=2.L0 


IN2 

205 


IF (TXK(IK,NAMB)-TXK<J,NPC) ) 320*310*300 


IN2 

206 

300 

CKFIL=XK«IK-I»NAMB)-MXK<IKfNAMB)-XK (IK-1,NAMB) )*(TXK (J,MPC)-TXK( IKIN2 

207 


1-1 * NAMB) ) / ( TXK ( IK # NAMB) -TXK ( IK-1 *NAMB ) ) 


IN2 

208 


60 TO 330 


IN2 

209 

310 

CKFIL=XK(IK*nAMB> 


IN2 

210 


60 TO 330 


IN2 

211 

320 

continue 


IN2 

212 

330 

XK < J* NPC ) =XK ( J , NPC ) ♦ < CKFIL-XK ( J , NPC ) ) *F IFR 


IN2 

213 


DO 370 J=l»LtK 


IN2 

214 


DO 360 IK=2»LA 


IN2 

215 


IF (TCP(IKjNaM0)-TCP<J»NPC) ) 360*350*340 


IN2 

216 

340 

CPFXL=CPX(IK-1.NAMB)+(CPX( IK* NAMB) -CPXC IK-1 » 

NAMB) >*<TCP( j»NDC) 

-TCPIN2 

217 

1 (IK-1* NAMB) ) / ( TCP ( IK * NAMB ) -TCP ( IK— 1 » NAMB ) ) 


IN2 

218 


60 TO 370 


IN2 

219 

350 

CPFILsCPX(IK.NAMB) 


IN2 

220 


60 TO 370 


IN2 

221 

360 

continue 


IN2 

222 

370 

CPX(JfNPC)=CPX(J#NPC)-MCPFIL-CPX(J*NPC ) ><*FIFR 

IN2 

223 

360 

WRITE <6*950) 


IN2 

224 


WRITE <6*880) 


IN2 

225 


KLLL=MIN0(LAK»LEK) 


IN2 

226 


I=NPC 


IN2 

227 


DO 390 N=1»KLLL 


IN2 

228 


WRITE <6*770) (TXK <N* I ) , XK < N, I ) , TCP < N, I ) , CPX <N* I M 

IN2 

229 

390 

CONTINUE 


IN2 

230 


IF (LAK-lEK) 400*440*420 


IN2 

231 

* 

o 

o 

kllll=klll+i 


IN2 

232 


1 - 5.3 



no no 



00 4i0 NsKLLLL,LEK 

IN2 

233 


WRITE (6,780) ( TCP ( N, I ) ,CPX (N, I ) ) 

IN2 

234 

*♦10 

continue 

IN2 

235 


60 TO 440 

IN2 

236 

420 

KLLLLsKLLL+l 

IN 2 

237 


00 430 N=KLLLL,LEK 

IN2 

238 


WRITE (6,790) (TXK(N,I) ,XK(N,I) ) 

IN2 

239 

430 

continue 

IN2 

240 

440 

continue 

IN2 

241 


RH0PC= ( 1 ,-FIFR) wRHOBX ( NPC ) 

IN2 

242 


RH06X ( NPC ) SRHO0X ( NPC ) ♦( RHOF IL-RHOBX ( NPC ) > *F I FR 

IN2 

243 


WRITE (6,960) RH0BX(NPC ) ,RHOPC 

IN2 

244 

450 

continue 

IN 2 

245 



IN2 

246 


PROPERTIES OF ENVIRONMENT 

IN2 

247 


READ (5,600) (HEADNG(L) ,L=1,12) 

IN2 

248 


READ (5,610) TENV,H£NV»FENV, GLOSS 

1N2 

249 


WRITE (6,640) (HEADN6(L> ,L=1,12) 

IN2 

250 


WRITt (6,970) TENV,HENV,FENV, GLOSS 

IN2 

251 



IN2 

252 


INITIAL TEMPERATURE DISTRIBUTION 

IN2 

253 


READ (5,600) (HEADNG(L) »L=1,12) 

IN2 

254 


NPFsNP-fNPBS 

IN2 

255 


xnp=np 

IN2 

256 


OX=VL/(XNP-1,0) 

IN2 

257 


READ (5,610) TEST2, TEMPI 

IN2 

258 


IF (TEST2) 470,480,460 

IN2 

259 

460 

WRITE (6,960) 

IN2 

260 


STOP 

IN2 

261 

470 

READ (5,610) (TEMOI(K) ,K=1,NPF) 

IN2 

262 

48Q 

00 490 K = 1 » NPF 

IN2 

263 


IF (TEST2,EQ.0.0> TEMDI (K)sTEMPl 

IN2 

264 


TX1(K)=TEMDI (K) 

IN2 

265 


TX2(K)=TX1 (K) 

IN2 

266 


TUL1 (K)=TX1(K> 

IN2 

267 


TUL2(K)=TX1(K) 

IN2 

268 

490 

CONTINUE 

IN2 

269 


L=NP+I 

IN2 

270 


00 510 1=1, NMB 

IN2 

271 


LN=NPM ( I ) 

IN2 

272 


00 500 J=1 , LN 

IN2 

273 


TX2T(J,I)=TEMDl(L) 

IN2 

274 


L=L+1 

IN2 

275 

500 

continue 

IN2 

276 

510 

continue 

IN2 

277 


WRITE (6,640) (HEADNG (L) ,L=1 , 12 ) 

IN2 

278 


IF ( TEST2 ) 520,530,530 

IN2 

279 

520 

WRITE (6,990) 

IN2 

200 


WRITE (6,1000) (TEMDI(K),K=1,NPF) 

IN2 

281 


GO TO 540 

IN2 

282 

530 

WRITE (6,1010) TEMPI 

IN2 

283 

540 

IF (AOPT.EQ.O.) GO TO 560 

IN2 

284 


AP=CA* ( RHOV-RHOC ) ** (SN-1 . ) 

IN2 

2B5 


DO 550 1=1, NP 

IN2 

286 


TUL2II)=1./(1.-SN) 

IN2 

287 


RHO(I)=RHOV 

IN2 

288 


IF ( T X2 ( I ) • LE • T AbL ) GO TO 550 

IN2 

289 


WRITE (6,1020) 

IN2 

290 


1-54 



c 

c 


STOP IN2 291 

550 CONTINUE 1NZ 292 

IN2 293 

ENTHALPY as a FUNCTION OF TEMPERATURE IN2 294 

560 READ (5*620) NHP IN2 295 

READ (5*610) (HX(K) »TW(K) »K=1»NHP) IN2 296 

□0 570 I=1*NP IN2 297 

IEM(I)=0 IN2 298 

XMDG(I)=0.0 IN2 2 " 

THETA ( I ) si • IN2 300 

XMTPT(1)=0. I^ 2 301 

570 CONTINUE IN2 302 

00 560 I — 1 * 1 o I N2 303 

580 CDJ ( I )=0 • IN2 304 

UQlNi=0, IN2 305 

UQIN2=Q. IN2 306 

DQIN3=0. IN2 307 

QST1=0. IM2 308 

UST2=0. IN2 309 

QST3=0. - IN2 310 

QRIN1=0. • I N2 311 

QRIN2=0. INZ 312 

QRIN3=0. IN2 313 

QROT1=0. IN2 314 

QR0T2=0. IN2 315 

UROT3=0. IN2 316 

XV(1)=0.0 IN2 317 

DO 590 I=2#NP IN2 318 

XV(1)=XV(I-1)+DX 1*»2 319 

590 CONTINUE 1^*2 320 

RETURN IN2 321 

IN2 322 


600 FORMAT U2A6) IN2 323 

610 FORMAT (6E12.8) IN2 324 

620 FORMAT (715) IN2 325 

630 FORMAT (2l5»lEl4.8) 1^2 326 

640 FORMAT (///1X»12A6> 1^2 327 

650 FORMAT (2l5*7El0.5) * N 2 328 

660 FORMAT (8E10.5) IN2 329 

670 FORMAT ( ///40H0***** ABLATION INPUT ♦****) IN2 330 

680 FORMAT (//,5X»27HARRHENIUS EQUATION IS USED./»5X»2HN=F16.7*5X»2HA=IN2 331 

1E16.7*5X»2HB=E16.7) IN2 332 

690 FORMAT </*5X»6HCPGAS=El6.7*5X»4HXMC5*El6.7*5X»4HXMP=*El6.7> IN2 333 

700 FORMAT ( /2X# 5HTABL=»£l2. 5* 2X»6HTCHAR=» E12 . 5* 3X» 5 HTREc=»E12. 5* 3X * 5HIN2 334 


1RH0V=»E12.5*3X,5HRH0Cs,E12.5*21X/1X»6HTBL0W=*E12.5»^X»4HEMVs*E 12.5IN2 335 
2»4X»4HEMC=*El2.5»3X»5HH300=*E12.5*5X*3HVL=*E12.5/4X»3HHV=»Ei2.5»5XlN2 336 
3»3 HFV=»Ei2,5*5X»3HTV=»E12.5*2X»6HCHARK=*E12,5*2X#6HChARC=*Ei2.5/2XIN2 337 
4*5HABLK=,E12.5,3X»5HABLCs»E12.5/) IN2 338 

710 FORMAT (2X»3HNP=,1I4»4X»4HNKC=*1I4*4X*5HNCPC=*1I4»4X,4HNKV=,1I4»4XIN2 339 
1 , 5HNCPV= , 1 14 . 4X # 5HNREC= » 1 14 . 4X , 7H1QBLCKS* 1 14 * 4X * 5HNTK V= * 1 14 , 4X , 5HNIN2 340 
2PKV=»1I4) 1NZ 341 

720 FORMAT ( /32X * 15HVIRQIN MATERIAL//3X*8HPRESSURE*4X*7(E15*5) ) IN2 342 

730 FORMAT ( /3X* HHTEMPERATURE * 5X * 20HTHERMAL CONDUCTIVITY) IN2 343 

740 FORMAT (2X*E12.5»1X*7(E15,5) ) * N2 344 

750 FORMAT ( /45X . 8HSPECIFIC/25X . 11HTEMPERATURE* 1 1X»4HHEAt/ (24X »E12.5* 7IN2 345 

1X»E12.5) ) IN2 

760 FORMAT ( /32X » 15HVIRGIN MATERIAL/20X*7HTHERMAL*38X*8HSPECIFIC/3X»11IN2 347 
1HTEMPERATURE » 4x » 12HC0N0UCTI VlTY , 19X * 1 1HTEMPERATURE * 7x * 4HHEAT ) IN2 348 
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770 FORMAT ( 2* »El2.5» 4X »El2.5, 18X»E12.5» 3X ,E12 , 5) IN2 349 

7 80 FORMAT (48X»El2.5»3X,Ei2.5) IN2 350 

790 FORMAT < 2X»El2.5,4X»El2.5) IN2 351 

600 FORMAT (//33X»14HCHAR MATERI AL/20X , 7HTHERMAL , 3BX , 8HSPEC IF IC/3X » 11 IN2 352 
1HTEMPERATURE.4X.12HC0NDUCTIVITY. 19X, 11HTEMPERATURE,7x,4HHEAt) IN2 353 

610 FORMAT (//28X#23HSURFACE RECESSION T ABLE//25X , 1 lHTEMPFRATURE » 8X , 1 1 IN2 354 
1HSR - IN/SEC) IN2 355 


820 FORMAT (24X*E12.5»7X»El2,5) IN2 356 

630 FORMAT <//10X,31H PROPERTIES OF BACKUP STRUCTURE/) IN2 357 

640 FORMAT <2l5»4El2.5) IN2 358 

850 FORMAT (1015) IN2 359 

660 FORMAT </4X»35HN0. OF MATERIALS IN BACK-UP SHIELDS 1I4/4x»4oHTOTALIN2 360 

1 NUMbER OF NODES IN BACK-UP SHIELDS, 1I4/4X,28HTHICKNESS OF 0ACK-UPIN2 361 

2 SHIELDS, E12. 5//) IN2 362 

870 FORMAT <//12A6) IN2 363 

680 FORMAT ( //20X , 7HTHERMAL#38X » 8HSPECIFIC/3X , 1 IBTEMPERAtuRF , 4X, 12HC0NIN2 364 

1DUCT1VITY»19X,11HTEMPERATURE»7X,4HHEAT> IN2 365 

690 FORMAT <///55X, 10HEMISSIVITY/8X,8HMATERIAL»5X,7HDENSITY»7X,9hThICKIN2 366 
1NESS,7X,5HFR0NT,9X»4HBACK,7X,14HN0DES/MATERIAL/) IN2 367 

900 FORMAT < 11X , 1 1 1 , 8X ,ElO . 4 » 4X ,E10 . 4 »4X »El 0 . 4 » 4X ,E10 .4 * 6X , E 10 . 4/ > IN2 368 
910 FORMAT ( /// » 4X, 41HADDITIONAL DATA FOR PHASE CHANGE MATERIAL) IN2 369 

920 FORMAT ( / » 6X , 4HNPCS, I5» 2X»6HTMELT=»E12 ,5» 2X, 15HHEAT OF FUSIONS, E12IN2 370 
1.5»2X,7HKHQFILs,El2.5,2X»5HFIFRs,E12.5> 1N2 371 

930 FORMAT (//4X,60HADDITI0NAL DATA FOR INDIVIDUAL MATERIALS IN BACKUPIN2 372 
1 STR0CTURE//11X,8HMATERIAL»5X#16HFILM COEFFICIENT » 5X, 13HGAP THICKNIN2 373 
2ESS» 8X» 5HFTEST , 13X , 5HBTEST ) IN2 374 

940 FORMAT ( 13X , 1 13, 12X»ElO .4 , 9X »ElO .4, 7X,E11 . 4 , 7X , El 1 .4/ ) IN2 375 

950 FORMAT ( /// , 4X, 39HEQUIVALENT PROPERTIES OF PCM AND FILLER) IN2 376 

960 FORMAT ( /// , bX, 25HEOU I VALENT DENSITY OF PCM,E12.5, 2X,26HDENsITY 0FIN2 377 
1 PCM DURING MELT , E12*5) IN2 378 

970 FORMAT ( /4X , l2HTEMPERATUREs, £12. 5,4X, 17HFILM COEFFICIENTS, Ei 2 . 5 , 4VIN2 379 
1 , 12HV IEW FACTORr,E12.5»4X,7HQ L0ST=,E12.5) IN2 380 

980 FORMAT ( //4X, 52HLINEAR TEMPERATURE DISTRIBUTION IS No LONGER ALL0WIN2 381 
1EO) IN2 382 

990 FORMAT (4X»52HTEMPERATURE DISTRIBUTION IN HEAT SHIELD IS ARBRITARYIN2 383 
1/) , ' , ■ IN2 384 

1000 FORMAT (8E12.5) IN2 385 

1010 FORMAT (//4X,64HTEMPERATURE DISTRIBUTION IN HEAT SHIELD IS UNIF0RMIN2 386 
1 AND EQUAL TO ,E10.4/> IN2 387 

1020 FORMAT (////, 5X ,43HPROGRAM DOES NOT PERMIT INITIALIZATION WHEN22H IN2 388 
1 THERE IS INITIAL CHAR) IN2 389 

END IN2 390- 
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OVERLAY ( P5490. 1 .2) 



CND 


PROGRAM CONDTN 



CND 

1 




CND 

2 

COMMON /CNDTN/ OEL.DTMAX.TTAU. ITER 


CND 

3 

COMMON/TPS/A (20) »G(9) »R.X(9) 



CND 

4 

COMMON AL » ALPHA (99) 

.ALT (99) 

. AME 

.AMI CND 

5 

l.AOFA .AOFE , AROD 

.AS 

» AX (9. 11 .9) »AY(9,11»9)CND 

6 

2 » BATA »t)E , BETA ( 99 ) 

.BF 

»BFL 

»BL CND 

7 

3 .DELTA .OlAM ,0IST(9) 

.DST 

.£(20.99) 

»EALL CND 

8 

4»EAT(20.99)»EDOT(20»99) »EMIS(9) 

.FACC 

»FCU(2Q»99> 

. FCY ( 20 . 99 ) CND 

9 

5.FNET(20) .FSU(20»99) »FT<20) 

.FTU(20.99) 

»FVE 

»F07 CND 

10 

6»G(20»99) »HH »HINS 

.HINSD (99 ) 

. ICONF 

.ILINKO CND 

11 

7.IQINP *ITUR8 #IWALT 

.MAT (9.9) 

.MPT (9.9) 

.MR(g.ie) CND 

12 

8.NC0LM .NCR ,NCRC 

.NF 

.NX (18) 

.NINS CND 

13 

9.NMAT fNMIN .nprt 

. NPSG 

.NR (18) 

»NRSG CND 

14 

$ » NSEG » NTRAJ . N33 

.PE 

.PHI 

»P I CND 

15 

S»PINP(99> #QC0NL(9) .QC0NT(9) 

. 0 I NP ( 99 ) 

.QNET (9> 

»RH0(9) CND 

16 

S.RHOI .RYE »RYI 

»SL 

»SLS 

.STAAT CND 

17 

t.STl » STOOP »T(2Q»99) 

•TALLW (9) 

.TAMP ( 9» 9) 

»TAU CND 

18 

S.TC1 »TEMP(9.9) .theta 

»TI 

» TIME (99) 

.TINS CND 

19 

*#TINSD(99> »(JF »VFACT(9,ia 

) .VI 

»VINF(99) 

.WROTE CND 

20 

$ . XEMIS »XSTG(99> .XX(20) 

» Y ( 9 ) 

. ZZ ( 20 ) 

CND 

21 

DIMENSION A1 (9*9) » A2(9»9) .A3 (9, 9) 

»NRA( 18) »0N 

1(4). 02(9), VF(9»18>» CND 

22 

1DX(9) »DY(9»9) »A4(9.9) , GET (9. 9) 



CND 

23 




CND 

24 

DO 440 JlJsl.lO 



CND 

25 

11=0 



CND 

26 

A1S=Q. 



CND 

27 

GSS=0. 



CND 

28 

IF (NRSG.EQ.o) GO TO 20 



CND 

29 

L=0 



CND 

30 

DO 10 Isl.NRSG 



CND 

31 

10 NRA(i)=NR(I) 



CND 

32 

20 X2=Q. 



CND 

33 

00 70 1=1 .NCOLM 



CND 

34 

IF (NCRC.LT.2) GO TO 30 



CND 

35 

X1=X2 



CND 

36 

X2=XX(I)**2 



CND 

37 

DX ( I ) =3* 1416* ( X2-X1 ) 



CND 

38 

GO TO 40 



CND 

39 

30 DX ( I ) =X ( I ) 



CND 

40 

40 IF (IQINP.EQ.3) GO TO 50 



CND 

41 

QNET ( I ) =0 ( I ) -0 . 476E-12*XEMIS*TEMP ( I , 1 ) **4 


CND 

42 

50 DO 70 J=1.NSEG 



CND 

43 

KsMAT ( I . J> 



CND 

44 

K=IA6S(K) 



CNO 

45 

IF (K.EQ.O) GO TO 70 



CND 

46 

CP=TRPLAT ( AY » Ax. TEMP ( I . J) »K . 1 »MPT (K , 1 ) ) 


CNO 

47 

EK=1 , 8E3/TRPLAT ( AY » AX. TEMP ( I . J ) , K 

.2. MPT (K.2) ) 

CND 

48 

A1(I,J)=CP*RH0(K)*DX(I)*Y(J) 



CND 

49 

XY=DX(I)/Y(J) 



CND 

50 

A3(I»J)=EK/XY 



CND 

51 

IF (NCRC.EQ.2) GO TO 60 



CND 

52 

0Y(1,J)=Y(J) 



CND 

53 

A2(I. j)=£K*XY 



CND 

54 

GO TO 70 



CND 

55 

60 A2 ( I » J)=.3183*EK*AL0G( XX (I)/(XX(I)-,5*X(I)))/Y(J) 

CND 

56 

DY ( I . J) =6,2832*XX ( I ) *Y ( 0) 



CND 

57 


1-57 



IF (I.EQ.l) GO TO 70 

A4(I, J)2.318A*EK*AL0G< ( XX( I )-. 5*X < I > ) /XX ( 1-1 ) )/Y( J) 
70 CONTINUE 
D£TMAX=0.0 
NEWUT=0 

00 340 U=1»NSEG 

DO 340 I=1»NC0lM 

IF (MAT ( 1 * J) ,EQ,0) 60 TO 340 

IF ( IQINP .EQ , 3. AND. J*EQ» 1 ) 60 TO 190 

OS=0. 

DO 330 K=1 * 4 
GO TO (6U*90, 100*110) » K 
80 IF (I.EQ.l) GO TO 120 

IF (MAT ( I— If J) ) 120*210*140 
90 IF (I.EQ.NCOLM.OR.MAT(I»J).LT.O.) GO TO 120 
IF (MAT ( 1+1 * J) ) 160*210*160 
100 IF (j.EQ.l) GO TO 130 

IF (NCOLM.EQ.l) GO TO 150 
IF ( MAT ( 1 » J“1 ) ) 150*210*150 
110 IF (J.EQ.NSEG) GO TO 320 

IF ( MAT ( I * J+l ) ) 190*200*190 
120 GN(k)=0, 

GO TO 330 

130 QN ( 3 ) =QN£T t J ) *OX ( I ) 

GO TO 330 
140 ON(1)=-Qn(2) 

GO TO 330 
150 ON ( 3 ) =-Q2 ( I > 

GO TO 330 

160 IF (NCRC.LE.l) GO TO 170 
SA=A2(I , J)4A4(I+1. J) 
v»0 TO 1QO 

170 SA=A2(I,j)«-A2(I+l»J> 

180 GN(2)=(T£MP(I+1,J)-TEMP(I,J) )/SA 
GO TO 330 

190 QN(4)=(T£MP( X . J+1)-TEMP(I* J) )/(A3(I»J+l)+A3(I*J) ) 
Q2( I )=QN(4) 

IF ( IQINP.EQ.3. AND. J«EQ.l) GO TO 340 
GO TO 330 
200 GN(K)=0. 

IF (NCOLM.GT.l) GO TO 210 
10=1 
M=1 
L=L+1 
N=J42 
GO TO 240 
210 QN(K)=0. 

IF (NRSG.EQ.Q) GO TO 330 
NRP=10*I+J 
DO 220 L=1»NRSG 
IF (NRP,£Q,NRA(L) ) GO TO 230 
220 CONTINUE 
GO TO 330 
230 NRA (L )=0 
I J=N1 (L) 

240 DO 310 11=1* IJ 

IF (NCOLM.EQ.l) GO TO 250 
M=MR( II,L)/10 


CNO 58 
CND 59 
CNO 60 
CND 61 
CND 62 
CND 63 
CND 64 
CND 65 
CND 66 
CND 67 
CND 68 
CND 69 
CND 70 
CND 71 
CND 72 
CND 73 
CND 74 
CND 75 
CND 76 
CND 77 
CND 78 
CND 79 
CND 80 
CND 81 
CND 82 
CND 83 
CND 84 
CND 85 
CNO 86 
CND 87 
CND 88 
CND 89 
CND 90 
CNO 91 
CND 92 
CND 93 
CND 94 
CND 95 
CND 96 
CND 97 
CND 98 
CNO 99 
CND 100 
CND 101 
CND 102 
CND 103 
CND 104 
CND 105 
CND 106 
CND 107 
CND 108 
CND 109 
CND 110 
CND 111 
CND 112 
CND 113 
CND 114 
CND 115 
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N5MR(II,L)-10*M 
250 IF UVF.EO.I) 60 TO 300 

IF (K.EQ.1.0K.K.EQ.2) 60 TO 260 
KL=OX ( I ) 

60 TO 270 
260 RL=OY(I»J) 

270 M1=MAT(I,J) 

E1=EMIS(M1> 

M2SMAT(M t N) 

IP (M2.EQ.0) 60 TO 280 
E2=EMIS(M2) 

H2=E1*E2/ ( 1 1 ,-El ) # ( 1 .-E2 ) ) 

60 TO 290 
280 E12=E1 

290 VF ( H,L)r0.476£-l2*E12*RL*VFACT( II »L) 

IP (L.EQ.NRSEG.AND.II.EQ.IJ) I VF=1 
300 0RsvF(II,L)*(TEMP{M»N)**4-TEMP(1,J)**4> 
310 0N(K)=QN(K)4GR 
60 TO 330 

320 QN(4)=HlNS*0X<n*CTINS-TEMP(l,j) ) 

IP (HINS.GE.I.E9) QN(4)S-GS 
330 QS=QS+QN(K) 

QSSzQSS+QS 

A1S=A1S+Al(l*j) 

ip (MAT(I.J) .LT.O.) 60 TO 340 

OET ( I » J) =DELTA*QSS/A1S 

UETMAX=AMAX1(0ETMAX#ABS(DET(I#J) ) > 

Ais= 0 . 

OSSSO. 

340 CONTINUE 

IP (OETMAX.GT.10.) GO TO 350 
OEL=OEL+OELTA 
ITER=ITER+1 
TTAU=TTAU+DELTA 
OSTP=STOOP-TTAu 
ip (OETMAX.LT. 3) 60 TO 360 
60 TO 380 
350 (JOELTAsOELTA 

OELTA=DELTA*(5,0/DETMAX) 

UWRTsWROTE-OEL 

UELT AsAM I N1 ( DELTA , OTMAX » DSTP > DWRT ) 
DEL=DEL+DELTA 

iter=itek+i 

TTAUSTTAU+DELTA 
DSTP=STOOP-TTAu 
NEWDT=1 
60 TO 390 

360 IF (DETMaX.GT.O.OI) GO TO 370 
QELTA=2 . 0* ( OELT A+0 . 5 ) 

60 TO 380 

370 DELTAsDELTA* ( 6. 75/OETMAX ) 

360 DWRT=WROTE-DEL 

ip (DWRT. EG. 0.0) DWRTslO.O 
DELTA=AM|N1 ( DELTA » OTMAX » OSTP t DWRT ) 

390 DO 430 Jsl'NSEG 
DO 430 I=1»NC0LM 
IF (NEWDT.NE.l) GO TO 400 
OET ( I » J ) -DET ( I » J) * < OELTA/DDELTA ) 


CNO 116 
CND 117 
CND 118 
CNO 119 
CNO 120 
CND 121 
CND 122 
CND 123 
CND 124 
CND 125 
CND 126 
CND 127 
CND 128 
CND 129 
CND 130 
CND 131 
CND 132 
CND 133 
CND 134 
CND 135 
CND 136 
CND 137 
CND 138 
CND 139 
CND 140 
CND 141 
CND 142 
CND 143 
CND 144 
CND 145 
CND 146 
CND 147 
CND 148 
CND 149 
CNO 150 
CND 151 
CND 152 
CND 153 
CND 154 
CND 155 
CND 156 
CND 157 
CND 158 
CND 159 
CND 160 
CND 161 
CND 162 
CNO 163 
CND 164 
CND 165 
CND 166 
CND 167 
CND 168 
CNO 169 
CND 170 
CND 171 
CND 172 
CNO 173 
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400 11=11+1 

IF (MAT ( I * J) ,LT , 0, ) SO TO 430 
TEMP(I,J)=T£MP(I»J)+OET(I»J) 

IF lll.LE.l) GO TO 420 
DO 410 I2=2»I1 
13=1-12+2 

410 TEMP(I3-1#J) =T£MP ( 1 3» J) 

420 11=0 
430 CONTINUE 

IF (DEL. EG. WROTE. OR. TTAU. EG. STOOP) 
440 CONTINUE 
450 RETURN 
END 


CND 174 
CND 175 
CND 176 
CND 177 
CND 178 
CND 179 
CND 180 
CND 181 
CND 182 

GO TO 450 CND 183 

CND 184- 
CND 185 
CND 186- 



c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 


OVERLAY (P5490.1.3) 



ABL 


PROGRAM ABLATE 



ABL 

1 




ABL 

2 

STRUCTURES AND MECHANICS DIVISION 



ABL 

3 

thermo-structures branch 



ABL 

4 

THERMAL PROTECTION SYSTEMS SECTION 



ABL 

5 




ARL 

6 

THIS PROGRAM DETERMINES THE PERFORMANCE OF A CHARRING 

ablator 


arl 

7 




ABL 

8 

ANALYSIS ANO PROGRAM DEVELOPED BY DONALD M. CURRY * 

ES21 


ABL 

9 




ABL 

10 

COMMON /ABLTN/ T»QIN.DTS»TX2(30) »VELX» IGINPP.DEL. APRNT 

» INT » PE 


ABL 

11 

COMMON / ARRH/ THET A ( 1 0 J , AP » XB ► SN , C A ♦ XMTPT ( 1 0 ) » AOPT 



ABL 

12 

COMMON /BREV/ KUS»KAS,K0S*NAP,NPC»NIFPCM,DQIN1,0QIN2.0QIN3»KA.KU 

ABL 

13 

1# TMt.LT 



ABL 

14 

COMMON /CCSOOT/SDOT 



ABL 

15 

COMMON /DELX/ 0ELX1.DELX2.DELX3 



ABL 

16 

COMMON /OMND/ TKC ( 9 ) * XKC(9). TCPC(9)» 

CPC (9) » 

ABL 

17 

1 TK V < 9 ) » XKV (9# 7) » TCPV(9>» CPV(9)» 

XNpM (4 ) » 

ABL 

18 

2 KH0BX<4)» XBM( 4 ) » EMFB(4>» EMBB(4)» 

NKPB (4 ) » 

ABL 

19 

3 NCPB(4)» TXK (9*4 ) ♦ XK(9.4)» TCP(9*4)» 

CPX ( 9*4 ) r 

ABL 

20 

4 NPM(4). GAPX(4) # FTEST (4) . BTEST(4)» 

TEMDI (30). 

ABL 

21 

5 TX1(30)» TX2T (10 »6) » TULK30). TUL2(30)» 

A (30). 

ABL 

22 

6 B ( 30 ) * C ( 30 ) » 0(30) » S(10)» 

R ( 10 ) » 

ABL 

23 

7 AB(b»6) » BB(5»6). CB(5»6). DB(5.6)» 

SB (5 

.6 ) . 

ABL 

24 

8 RBI ( S.6) * RB2(5.6)» TY(30)» CPB(9»6)» 

DX8(6) . 

ABL 

25 

9 XMDG ( 10) » RHO( 10 ) » CP(10)* YK(10)» 

XKB ( 9 

.6) » 

ABL 

26 

S H ( 4 ) r IEM(IO)# PKV<7), XV(10)* 

TS(10). 

ABL 

27 

* SR ( 10) ♦ HX(20) * TW<20) 



ARL 

28 

COMMON /HF/ HFl,HF2»HF3 



ABL 

29 

COMMON /KAN/ KAN1 , KAN2 # KAN3 



ABL 

30 

COMMON/OLA/ 1 JO(10)»CDJ(10) 



ABL 

31 

COMMON /PCM/ QRIN1#ORIN2»QRIN3*QROT1»QROT2»QROT3 



ABL 

32 

COMMON /QST/ 0STl»Q5T2*QST3 



ABL 

33 

COMMON /UNOM/ABLC# ABLK» BL»CHARC»CHARKr DT» Dx, 

EMV, 

EMC 

» arl 

34 

1 ERR2» ERR3. ERR4 1 ERR5* FENV* FV» HENV » HV» H300» 

117, 

15 

»apl 

35 

2 IB* NCPC. NCPV » NKC. NKV * NMB, NPp NPBS» NPF» 

NREC , 

NRS 

.ABL 

36 

3QL0SS. RHOC> RHOv. TABL»TBLOW»TCHAR,TEMPI» TENV»TEST 2 , 

TREC, 

TV 

, ABL 

37 

4 VL» VLV»XLOST»XLSTV* XMC* XMDC f XMDT » XMP, xMT» 

XNP, 

NHP 

.ABL 

38 

5 NTKV # NPKVdOBLCK 



ABL 

39 

DIMENSION XVPNTdO) 



ABL 

40 

DATA BET AL »Bt TAT » FBLOWL» FBLOWT/0 . 25 * 0 . 2 » 1 . 44 » 0,87/ 



ABL 

41 




ABL 

42 

UT=DTS/3600. 



ABL 

43 

QHWSQIN 



ABL 

44 

GCONXSOIN 



ABL 

45 

QBLOCK=0.0 



ABL 

46 

2=0. 



ABL 

47 

MW=0. 



ABL 

48 

HTX=Q. 



ABL 

49 

IF (XMDT,LE.0.01.AND.IQINPP,NE.4) GO TO 180 



ABL 

50 




ABL 

51 

COMPUTE HEAT BLOCKAGE AT FRONT SURFACE 



ABL 

52 

10 IF (117-1) 40 »40 » 20 



ABL 

53 

20 IF ( I17-NHP) 30»30»40 



ABL 

54 

30 IF (TX2(INT)-TW(I17) ) 60»90»50 



ABL 

55 

40 WRITE ( 6 # 550 ) TX2< INT) 



ABL 

56 

GO TO 540 



ABL 

57 
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50 

117=117+1 

ABL 

58 



60 TO 20 

ABL 

59 


60 

IF (TX2< INT)-TW(I17-1) ) 70,90,80 

ABL 

60 


70 

117=117-1 

ABL 

61 



GO TO 10 

ABL 

62 


60 

HW=HX ( 1 17-1 ) + ( (HX ( 1 1 7 ) -HX ( 117-1 ) ) / ( TW { 1 17) -TW ( 1 17-1 ) ) ) * ( TX2 ( INT ) 

-TABL 

63 


1W(I17-1>) 

ABL 

64 



GO TO 100 

ABL 

65 


90 

HW=HX (117) 

ABL 

66 


100 

HTX=H300+< (V£LX**2)/50056.5) 

ABL 

67 



IF (X MOT. LE. 0.01. OR. I QBLCK . EQ • 0 ) GO TO 110 

ABL 

68 



F8L0w=FBl0wL 

ABL 

69 



bETA=BETAU 

ABL 

70 



IF (T.GT.TbLQW) FBLOWsFBLOWT 

ABL 

71 



IF (T.GT.T8L0W) BETA=BETAT 

ABL 

72 



XM2=XMP/ ( 1 .-XMOC/XMDT* ( 1 ,-XMP/XMC ) ) 

ABL 

73 



ALPHA=FBL0W* ( 28 . 97/XM2 ) **BETA 

ABL 

74 



BCOF=XMOT*<HTX-HW)/<OHW*3600. ) 

ABL 

75 



XA8=ALPHA*BC0F 

ABL 

76 



IF (XAB.LE.O.) GO TO 110 

ABL 

77 



IF (XAB.OT.40.) XAB=40. 

ABL 

78 



G=XAB/(EXP(XAB)-1.) 

ABL 

79 



IF (G.GT.l.) G=l. 

ABL 

80 



QWB=6*QH» 

ABL 

81 



Q6L0CK=0HW-QmB 

ABL 

82 


110 

CONTINUE 

ABL 

83 



IF (IQINPP.NE.4) GO TO 180 

ABL 

84 

c 



ABL 

85 

c 


COMPUTE Q-HOT WALL 

ABL 

86 



2= ( HTX-HW ) / (HTX-H300 ) 

ABL 

87 



IF (2-1.0) 120,140.150 

ABL 

88 


120 

IF (2) 130.130.150 

ABL 

89 


130 

QHW=0 .0 

ABL 

90 



GO TO 170 

ABL 

91 


140 

QHWsGCONX 

ABL 

92 



GO TO 160 

ABL 

93 


150 

0HW=2*QC0NX 

ABL 

94 


160 

IF (QHW.EG.O.) GO TO 170 

ABL 

95 



222= ( QHW-QBLOCK ) /QHW 

ABL 

96 



IF (22Z-0.2) 170.170.180 

ABL 

97 


170 

OBLOCK=0.8*GHW 

ABL 

98 

c 



ABL 

99 

c 


NET HEAT INTO FRONT SURFACE 

ABL 

100 


180 

IF (lEM(lNT)) 190.190,210 

ABL 

101 


190 

IF ( TX2 ( INT) -TCHAR ) 200»200»210 

ABL 

102 


200 

LMXsEMV 

ABL 

103 



GO TO 220 

ABL 

104 


210 

IEM(INT)=1 

ABL 

105 



EMXsEMC 

ABL 

106 


220 

QIN=QIN-QBLOCK- ( 4 . 8333E-13 ) *EMX*FV* ( ( TX2 ( INT ) **4 ) - ( Ty**4 ) ) 

ABL 

107 



QJN=QIN*3600.0 

ABL 

108 

c 



ABL 

109 

c 


CHECK FOR FRONT SURFACE RECESSION (CHAR LAYER REMOVAL) 

ABL 

110 



CALL RECESS ( XMQC » XLOST . TREC » OT , RHOC » TS , SR » TX2 ( 1 ) » NREc ,NRS »ERR5 , SOOABL 

111 


IT) 

ABL 

112 



IF (ERR5) 230*230,540 

ABL 

113 


230 

VLVsVLV-XLOST 

ABL 

114 



XLSTV=XLSTV+XLOST 

ABL 

115 
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XLSTI=XLSTV*12.0 



ABL 

116 


UXV=VLV/(XNP-1.0) 



ABL 

117 


XV(1)=0.0 



ABL 

1 IB 


L)0 240 I=2»NP 



ABL 

119 


xv(i)=xvn-i)+oxv 



ABL 

120 

240 

continue 



ABL 

121 


UX=DXV 



ABL 

122 


IF (tRK4) 25u *250 » 540 



ABL 

123 

250 

CALL COEFF(NPFT,SDOT) 



ABL 

124 


IF (ERR2) 26u *260 * 540 



ABL 

125 

260 

IF (LRR3) 270*270* 540 



ABL 

126 

i-70 

CALL SWUFHA,B,C*D*TY»NPFT) 



ABL 

127 


UO 260 1=1 »NP 



ABL 

12B 


TX1 ( 1 ) =TX2 ( I ) 



ABL 

129 


TX2U)=TY(I) 



arl 

130 

280 

continue 



ABL 

131 


CALL MDT&AS 



ARL 

132 


XMDT=XMDG( IND+XMDC 



ABL 

133 


LT=NP+1 



ABL 

134 


UO 310 I=1*NMB 



ABL 

135 


LLT=NPM ( 1 ) 



ABL 

136 


IF (I.EQ.l) GO TO 290 



ABL 

137 


IF ( bAPX (I-l).LQ.O.) GO TO 

290 


ABL 

138 


KKT=1 



arl 

139 


GO TO 300 



ABL 

140 

290 

nKT=2 



arl 

141 

500 

UO 310 j=kkt*llt 



ABL 

142 


TX2T(J»I)=TY(LT) 



ABL 

143 


LT=LT+1 



ABL 

144 

510 

continue 



ABL 

145 


UO 340 I = l*N,wiB 



ABL 

146 


IF (I.EG.l) «0 TO 320 



ABL 

147 


IF (OAPX(I-l) .EO.O.) GO TO 

330 


ABL 

148 


GO TO 340 



ABL 

149 

520 

TX2T(1*1)=TY(NP) 



abl 

150 


GO TO 340 



ABL 

151 

530 

LX=NPM( 1-1 ) 



abl 

152 


TX2T(1»I)=TX2T(LX.I-1) 



abl 

153 

o 

■o 

CONTINUE 



ABL 

154 


lmsnp+i 



abl 

155 


UO 350 1=1 »NMB 



ABL 

156 


LZ=NPM < I ) 



ABL 

157 


UO 350 U=1»L2 



ABL 

158 


TX2(LM)=TX2T(J*I) 



ABL 

159 


LM=LM+1 



ABL 

160 

350 

CONTINUE 



ABL 

161 


IF (NIFPCM) 510*510*360 



ABL 

162 

C 

CALCULATION OF ACCUMULATED 

heat 

IN PCM 

NODES DUE TO HEAT OF FUSIONABL 

163 

560 

continue 



ABL 

164 


IF (KAN3.GT.0) GO TO 510 



ABL 

165 


IF (KAN1.GT.0) GO TO 380 



ABL 

166 


IF (TX2(KU).GE.TMELT) GO TO 370 


ABL 

167 


GO TO 510 



abl 

168 

370 

TX2(KU-l)=TMtLT 



ABL 

169 


TX2(KU)=TMELT 



ABL 

170 


KASs-10 



ABL 

171 


GO TO 420 



ABL 

172 

380 

IF (KAN2.GT.0) GO TO 400 



abl 

173 
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o r> 


IF (TX2(KU+1 ) .GE.TMELT) GO TO 390 
GO To 510 

390 TX2(KU+1 )=TM£LT 
KUS=-10 
GO TO 420 

400 IF (KAN3.GT.U) GO TO 510 

IF <TX2<KA) .GE.TMELT) GO TO 410 
GO TO 510 
410 TX2(KA)rTM£LT 
1X2(KA-1)=TMELT 

kos=-io 

420 CONTINUE 

TJO(l)=.5*<TX2(KU-2)+TX2(KU-l) ) 
TJ0(2)=Tx2(KU) 

T JO ( 3 ) z, 5* ( TX2 ( KU) +TX2 ( KU+1 ) ) 

T JO( 4 )=TX2(KU+1) 

T J0( 5 ) =. 5* (TX2 (KU+l ) +TX2 (KA-1 ) ) 
TJ0( b )=TX2(KA> 

TJ0(7)=.5*(TX2(KA)+TX2<KA+1) ) 

CALCULATION OF conductivities FOR 
THIS IS DONE IN SUBROUTINE COND 
CALL CAND 

b I S=DELX 1/CO J < 1 ) ♦0ELX2/CDJ < 3 > 
bES=UELX2/CD J ( 2 ) +0ELX2/CDJ ( 4 ) 

B ASSDELX2/CD J ( 4 ) +DELX2/CD J ( 6 ) 
bOS=OELX2/CO J ( 5 ) +0ELX3/C0 J ( 7 ) 

IF (KAN1.GT.U) GO TO 450 
G»RIN1=(TJ0(1)-TJ0(3) )/(BlS»3600. ) 
QROT 1= ( T JO 1 2 ) -T JO ( 4 ) ) / < BES*3600 . > 
DQIN1=(0RIN1-QR0T1)*DTS 
OSTl=QSTl+DQINl 
IF (OST1-HF1) 440.440.430 
430 KANlziO 
NAS=10 

440 CONTINUE 
GO TO 510 
450 CONTINUE 

IF (KAN2.GT.0) GO TO 480 
ORIN2=(TJO<2)-TJO<4) )/(BES*3600, ) 
UR0T2=(TJ0(4)-TJ0(6) )/(BAS*3600, ) 
D0IN2=(0RIN2-QR0T2)*DTS 

GST2=QST2+DQIN2 
IF (GST2-HF2) 470.470,460 
460 KAN2=10 
KUS=10 

470 CONTINUE 
GO TO 510 
480 CONTINUE 

QRIN3=(TJ0(4)-TJ0(6) )/(BAS*3600. ) 
GROT3= ( T JO ( 5 ) -T JO < 7 >> / 1 80S*3600 , ) 
J0IN3=(0RIN3-0R0T3)*0TS 
GST3=QST3+OGIN3 
IF (OST3-HF3) 500.500.490 
490 KAN3=10 
KOS=10 

500 CONTINUE 
biO CONTINUE 

IF (UEL+1.01*0TS,LT.APRNT) RETURN 


AflL 174 
ABL 175 
ABL 176 
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ABL 183 
ABL 184 
ABL 185 
ABL 186 
ABL 187 
ABL 188 
ABL 189 
ABL 190 
ABL 191 
ABL 192 

HEAT BALANCE OF PCM NODES A8L 193 

ABL 194 
ABL 195 
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ABL 197 
ABL 198 
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ABL 230 
ABL 231 
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1*HW*Z 

TIME=T+.5*0TS 
WRITE (6# 570) 
WRITE ( 6 * 580 ) 


520 

530 


540 


550 


WRITE (6# 590) 
WRITE (6*600) 
CONTINUE 
00 530 1=1 #NP 


IJ=NP+1 
WRlTt ( 6 » 620 ) 
WRITE (6*630 ) 
WRITE (6*640 ) 
RETURN 
STOP 


OlNl=QIN/3600. ABL 232 

WRITE (6*560) T» VELX»0IN1 »XMDG ( I NT) *XMDC» XMDT *XLSTI *QBL0CK*QHW»HTXA8L 233 

ABE 234 
ABE 235 

TIME ABL 236 

ABL 237 

IF (NIFPCM.LE.O) GO TO 520 ABL 238 

WRITE (6*590) QRIN1»URIN2»QRIN3»QR0T1*QRGT2»QR0T3 ABL 239 

UQIN1»DQIN2»DQIN3»QST1*QST2*QST3 ABL 240 

(CDJ(J) *J=1»7) ABL 241 

ABL 242 
ABL 243 

XVPNT(I)=XV(1)*12.+XLSTI ABL 244 

WRITE (6*610) (XVPNT(I)»TX2<I)»THETA(I).XMTPT(I)*I=1*NP) ABL 245 

ABL 246 
ABL 247 

(TX2 ( I ) * 1= I J* NPF ) ABL 248 

ABL 249 
ABL 250 

■ •. ABL 251 

ABL 252 

FORMAT (1H0»60H THE RANGE OF THE ENTHALPY-TEMPERATURE CURVE FIT WAARL 253 
1SEXCEEDED AT A TEMPERATURE 0F»1E10.4) ABL 254 

560 FORMAT (bH0TIME=,E12. 5* 15X , 9HVEL0CITY=»E12.5* 12X *4HGINS*E12. 5/19H ABL 255 
1GAS ABLATION RATE=*E12.5*2X»19HCHAR ABLATION RATE=*El?.5*2X,20HT0TABL 256 
2AL ABLATION RATES. E12.5/17H RECESSION DEPTHS *El2«5»4x* 7HQBLOCK= » El ABL 257 
32.5.14X.11HQ HOT WALLs, E12.5/5H HTX=*E12.5* 16X, 3HHW=,E12.5, 18X»2HZABL 258 
4S.E12.5/) ABL 259 

570 FORMAT ( 1H0* 72HTEMPERATURE DISTRIBUTION IN HEAT SHIELD AT ThE END ABL 260 
TIME STEP, T= »E12.5* 1X.7HSEC0NDS// ) ABL 261 

(4X.49HTEMPERATURE DISTRIBUTION IN THE ABLATING MATERIAL//) ABL 262 
(2X,6(2X*E12.5) ) ABL 263 

(2X,7(2X*E12.5)//) ABL 264 

(30X*1HX*4X» 11HTEMPERATURE *2X * 5HTHET A * 5X , 5HM DOT*/* (24X.F10ABL 265 
1.5*F10.1»F10.4,E16.7) ) ABL 266 

t>20 FORMAT ( //4X * 49HTEMPERATURE DISTRIBUTION IN THE BACK-UP STRUCTURE/ ABL 267 
1/) ABL 268 

530 FORMAT (6X»El2.5,5Elb.5> ABL 269 

ABL 270 
. ABL 271- 


10F THE 
580 FORMAT 
590 FORMAT 
600 FORMAT 
510 FORMAT 


640 


FORMAT 

END 


(//) 
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c 

c 


subroutine canq can 1 


THIS ROUTINE 

calculates the 

CONDUCTIVITIES 

reqd, during melting 

CAN 

2 

OF PCM 





CAN 

3 

common /brev/ 

KUS»KAS,K0S«NAP»NPC»NIFPCM.0QIN1,D0IN2 

. DQIN3, K A »KU 

CAN 

. 4 

1, TMELT 





CAN 

5 

COMMON /UMNO/ 

TKC(9) » 

XKC ( 9 ) # 

TCPC (9) * 

CpC ( 9 ) * 

CAN 

6 

1 TKV (9) » 

XKV (9,7) # 

TCPV(9) , 

CPV(9) * 

XNpM (4 ) » 

CAN 

7 

2 RH0BX(4)» 

XBM(4) » 

EMFB ( 4 ) » 

EMBB(4) * 

NKPB(4) , 

CAN 

8 

3 NCPB ( 4 ) , 

TXK (9,4) , 

XK(9»4) , 

TCP (9,4) , 

CPX(9»4>» 

CAN 

9 

4 NPM(4) » 

GAPX(4) , 

FTEST (4) , 

BTEST(4) » 

TEMDK30)f 

CAN 

10 

5 TX1 (30) » 

TX2T (10,6) # 

TULK30) , 

TUL2 ( 30 ) * 

A (30) , 

CAN 

11 

6 BOO) f 

COO) » 

0(30) , 

S(10) * 

R ( 10 ) , 

CAN 

12 

7 AB ( 5 , 6 ) , 

BB(5»6) » 

CB(5.6) » 

0B(5»6) » 

SB ( 5 » 6 ) , 

CAN 

13 

8 K01 ( 5» 6 ) r 

RB2 (5,6) » 

TY ( 30 ) » 

CPB (9,6) » 

DXB<6) » 

CAN 

14 

9 XMDG(IO), 

RHO(IO) . 

CP(1G) , 

YK(10) * 

XKB(9»6) , 

CAN 

15 

$ H(4)» 

IEM(IO) » 

PKV (7) , 

XV(10) » 

TSC10 >, 

CAN 

16 

S SR ( 10) » 

HX ( 20 ) » 

TW ( 20 ) ' 



CAN 

17 

COMMON/OLA/ T JO ( 1 0 ) » CD J (10) 




CAN 

18 


COMMON /UNDM/ABLC# ABLK, BL»ChARC,CHARK» 

DT» 

DX, 

EMV, 

EMC, CAN 

19 

1 ERK2» ERR3, ERR4, ERR5, FENV. FV, HENV, 

HV. 

H300, 

117, 

15, CAN 

20 

2 Ib» NCPC» NCPV» NKC, NKV, NMB* NP, 

NPBS, 

NPF, 

NREC, 

NRS, CAN 

21 

30L0SS » rhoc » rhov, tabl»tblow .tchar .TEMPI , 

TENV. 

TEST2, 

TREC, 

TV, CAN 

22 

4 VL» VLV * XLOST » XLSTV » XMC. XMDC, XMDT, 

XMP, 

XMT, 

XNP, 

NHP.CAN 

23 

5 NTKV» NPKV » XQBLCK 




CAN 

24 

DO luO J=1 » 7 




CAN 

25 

1=NPC 




CAN 

26 

IF (J.EQ.l) I=NPC-1 



’ V i 

CAN 

27 

IF (J.E0.7) I=NPC+1 




CAN 

28 

LKPsNKPB ( I ) 




CAN 

29 

10 IF (15-1) 40,40,20 




CAN 

30 

20 IF (I5-LKP) 30,30.40 




CAN 

31 

30 IF (TJO(J)-TXK(IS.I)) 60,90,50 




CAN 

32 

40 GO TO 110 




CAN 

33 

50 15=15+1 




CAN 

34 

GO TO 20 




CAN 

35 

60 IF (TJO( J)-TXK(I5-1#I) ) 70,90,80 




CAN 

36 

70 15=15-1 




CAN 

37 

GO TO 10 




CAN 

38 

60 CDJ( J)=XK( 15-1, 1) + ( (XMI5.I) -XK { 15-1 ,1) )/(TXK(I5 

, I)-TXK(I5-1,I 

) ) )*CAN 

39 

1 (TJO( J)-TXK( 1 5-1, I ) ) 




CAN 

40 

GO TO 100 




CAN 

41 

90 CDJ(J)=XK(I5,I) 




CAN 

42 

100 continue 




CAN 

43 

15=2 




CAN 

44 

110 continue 




CAN 

45 

RETURN 




CAN 

46 

END 




CAN 

47- 
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tf tA \o oo >4 O' yi -c- o* po 


C 

c 


SUBROUTINE COEFF (NPFT , SDOT ) 

THIS SUBROUTINE DETERMINES THE COEFFICIENTS OF THE MATRIX 


COF 1 
COF 2 
COF 3 

COMMON /ABLTN/ T»QIN»DTS»TX2(30) »VELX» IGINPP»DEL» APRNT» INT,PE COF 4 
COMMON /ARRH/THETA(10) »AP»XB»SN,CA.XMTPT(10) »A0PT COF 5 
COMMON / D RfcV/ kUS#KAS,K0S»NAP,NPC.NIFPCM,DQIN1,DQIN2»0GIN3»KA.KU COF 6 


1. TMfc.LT 




COF 

7 

COMMON /CCPG/CP6AS 




COF 

8 

COMMON /UMND/ TKC<9)» 

XKC ( 9 ) » 

TCPC ( 9 ) ♦ 

CpC (9) » COF 

9 

1 TKv(9). XKV ( 9 » 7 ) » 

TCPV ( 9 ) , 

CPV ( 9 ) » 

XNPM(4) , COF 

10 

2 RHOPX ( 4 ) » X8M(4) » 

EMFBI4) » 

EMBB<4 ) * 

NKPB (4) » COF 

11 

3 NCPb ( 4 ) # TXK(9*4)» 

XKC9.4) * 

TCP(9r4 ) * 

CPX(9» 

4), COF 

12 

4 NPm ( 4 ) * GAPX ( 4 ) # 

FTEST C 4 > , 

BTEST (4 ) » 

TEMDl ( 30 ) » COF 

13 

5 TX1 ( 30 ) » TX2T < 10 » 6 ) » 

TULK30) » 

TUL2 ( 30 ) » 

A (30). COF 

14 

6 B ( 30 ) • C ( 30 ) » 

D(30) , 

siiO)» 

R ( 10) » COF 

15 

7 AB(S»6)» BB ( 5» 6 ) # 

CB (5,6) , 

DB(5»6> » 

SB ( 5# 

6), COF 

16 

8 HBKS.6)* RB2<5»6) * 

TY(30). 

CPBC9.6) » 

DXB<6) » COF 

17 

9 XMDG(IQ), RHO(IO). 

CP(10) # 

YK < 10 ) » 

XKB(9. 

6). COF 

18 

* H ( 4 ) » IEM ( 10 ) # 

PKV (7) , 

XV(10) » 

TS(10). COF 

19 

% SR(10). HX ( 20 ) » 

TW(20> 



COF 

20 

COMMON /KAN/ KAN1»KAN2.KAN3 


= * “ - 


COF 

21 

COMMON/SID/ NUP 




COF 

22 

COMMON /UNOM/ABLC# ABLK» BL 

»CHARC»CHARK» 

OT, DX, 

EMV, 

EMC, COF 

23 

1 ERR2, FRR3, ERR4, ERR5# FENV 

, FV, HENV. 

HV , H300. 

117, 

15, COF 

24 

2 It>» NtPC* NCPVr NKC * NKV 

» NMB , NP , 

NPBS, NPF, 

NREC , 

NRS,COF 

25 

30LOSS* RHOC » RHOV, TABLiTBLOW 

•TCHAR, TEMPI, 

TENV , TEST 2 , 

TREC , 

TV, COF 

26 

4 VL, VLV » XLOST , XLSTV# XMC 

, XMDC , XMDT » 

XM p, x M T» 

XNP, 

MHP , COF 

27 

5 ntk V » npkv.iQblck 




COF 

28 





COF 

29 





COF 

30 

KIPz—iO 




COF 

31 

KAPzNPC+1 




*• COF 

32 

KOPz-10 




COF 

33 

CALL PROP 




COF 

34 

IF (ERR2.EQ.1.0) RETURN 




COF 

35 

XFGlzi. 




COF 

36 

XFG2ZI. 




COF 

37 

XIFG3=0. 




COF 

38 

IF (AOPT.NE.O.) XFG1=0. 




COF 

39 

IF (AOPT.NE.U.) XIFG3Z1. 




COF 

40 

IF (TX2(1) .LT.TABL) XFG2=0, 




COF 

41 

YNPzNP 




COF 

42 

S(INT)=(KH0( INT)*DX*CP(INT) )/(2,0*DT) 



COF 

43 

R(lNT) = U.0)/( (DX/2.0)*( a.0/YK(INT))-M1.0/YK(INT4I> ) M 


COF 

44 

A(INT>=0.0 




COF 

45 

B ( I N T ) z— (5<1)+R(1) ) 




COF 

46 

C(INT)=R(1) 




COF 

47 

0 ( INT ) =-GIN-S I 1 ) *TX2 ( 1 ) ♦ ( XMDG ( 1 ) -XMDG ( 2 ) > *HV/2 . *XFGl+XFG2*CA*DX/2 .COF 

46 

1#HV* (RHO ( 1 ) -RHOC ) **SN*EXP ( -X8/TX2 ( 1 ) > *XIFG3+XMDG( 1 ) *CPGAS/2 . *GIN/YC0F 

49 

2K ( 1 ) *DX+RHO < 1 ) *CP ( 1 ) *SD0T*GIN/2 . /YK ( 1 ) *DX 



COF 

50 

XFG2=i. 




COF 

51 

UNT=INT+1 




COF 

52 

nPPzNP-1 




COF 

53 

XFG2=1. 




COF 

54 

00 10 IzjNTfNPP 




COF 

55 

XI=I 




COF 

56 

S(I)=(RHO(I)*DX*CP(I) )/DT 




COF 

57 

R<I> = (1.0>/UOX/<2.0*YK(I) ) ) + (OX/(2.0*YK( I+l) ) ) I 


COF 

58 
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A < I ) s ( R ( 1-1 ) -XMOG ( I ) *CPGAS/2 . ) 

8(I)z-(R(I-l)+R(I) +RHO ( I ) *CP ( I ) *SDOT* ( YNP-X I > / { YNP-1 . > > -S < I ) 

C (I ) = (R ( I ) +Xi‘iDG ( I ) *CPGAS/2 . +KHO ( I ) *CP ( I ) *SDOT* ( YNP-X I )/( YNP-1 
IP <TX2(I> .LT.TABL) XFG2=0. 

0<I)z-S(I>*Tx2(I) + (XMOG(I)-XMDG(H-l> )*HV*XFG1+XFG2*XIFG3*CA*H' 
10(1) -RHOC ) **SN*EXP < -XB/TX2 ( I ) ) *0X 
XPG2=l, 

10 CONTINUE 

R(NP)=<1.0»/( <DXB<1)/(2.0*XK8(1»1) ) >+(DX6(l)/(2.0*XKBC2*l> ) ) ) 
S(NP)z(RhO(NP>*DX*CP(NP>+RH03X<1)*CPB(1,1)*DXB(1) )/(2.0*DT) 
A(NP)zR(NP-1) 

b ( NP ) z- ( XMOG ( Np ) *CPGAS+R ( NP-1 ) +R ( NP ) ) -S ( NP ) 

C(NP)zR(NP) 

IF (TX2(NP) .LT.TABL) XFG2=0. 

D(NP)z(-S(NP)*TX2<NP) )>XMOG(NP)*HV*XFG1+XFG2*CA*HV/2 .*(RHO(nP 
1C)*»SN*ExP(-XB/TX 2(NP) )*0X*XIFG3 
00 2B0 Izl.NWB 
IF (NPC.EQ.O) GO TO 20 
IF (KAS.LT.O.AND.I.EO.NPC) GO TO 80 
IF (KOS.LT.O.ANO.I.EO.KAP) GO TO AO 
20 CONTINUE 

IF (1-1) 30* 30.40 
30 AB( 1 . I ) ZA (NP ) 
bB(l.I)zbCNP) 

CB(1,I)ZC(NP) 

08(1 » I ) ZO(NP) 

00 TO 140 
40 L=NPM(I-1) 

IF (FTEST < I ) ) 100 .50*100 
50 CONTINUE 

IF (NPC.EQ.O) GO TO 60 
IF (KAS.LT.O.AND.I.EO.NPC) 

IF (KOS.LT.O.AND.I.EQ.KAP) 

60 CONTINUE 

SB ( 1 . I ) z ( RH08X ( I ) *CPB ( 1 1 1 ) i 
1(2.U*DT) 


GO 

GO 


TO 

TO 


90 

90 


C 

C 


1»I-1) )) ) 

KB2(li I)s<l.u)/( (DXB(I)/(2.0*XKB(lf I> ) ) ♦( DXB ( I ) / ( 2 . 0*XKR ( 2 » I 
AB(i,I)SRBl(i#I) 

bB(l»I)Z(-(Rbl(l»I) +RB2 (1.1) +SB (1,1))) 

CB ( 1 » I ) ZRB2 ( i » I ) 

DB ( 1 » I ) s ( ■• ( SB ( 1 » I ) *T X2T ( 1 » I ) ) ) 

IF (KOP.LT.O) GO TO 70 
AB (l»J)ZQ.O 

DB ( 1 , I ) ZUB (1,1) -RBI (1,1) *TMELT 
KOPz-lO 
70 CONTINUE 
GO TO 140 

MODIFICATION OF FIRST NODE OF PCM DUE TO HEAT OF FUSION 
THIS IS THE HALF NODE OF THE FACE SHEET 
80 CONTINUE 

klok=i 

IsNPC-1 

IF (KOS.LE.O) IzNPC 
LNFsNPMU) 

KBl(LNF,I>=(1.0)/< (OXB(I)/(2.0*XK8(LNF-1,I) ))+(DXB(I)/(2.0*XKB(LNFCOF 
1,1)))) COF 



COF 

59 


COF 

60 

) 

COF 

61 


COF 

62 

(RHCOF 

63 


COF 

64 


COF 

65 


COF 

66 


COF 

67 


COF 

68 


COF 

69 


COF 

70 


COF 

71 


COF 

72 

RHOCOF 

73 


COF 

74 


COF 

75 


COF 

76 


COF 

77 


COF 

78 


COF 

79 


COF 

80 


COF 

81 


COF 

82 


COF 

83 


COF 

84 


COF 

85 


COF 

86 


COF 

87 


COF 

88 


COF 

89 


COF 

90 


COF 

91 


COF 

92 

) )/COF 

93 


COF 

94 

L- 

1C0F 

95 


COF 

96 

) 

COF 

97 


COF 

98 


COF 

99 


COF 

100 


COF 

101 


COF 

102 


COF 

103 


COF 

104 


COF 

105 


COF 

106 


COF 

107 


COF 

108 


COF 

109 


COF 

110 


COF 

111 


COF 

112 


COF 

113 


COF 

114 


115 

116 
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KB2 ( LNF »!) = (!. Q>/<< DXB (!♦!)/< 2 . 0*XKB < 1 » 1+1 ) ) ) ♦ ( DXB ( 1 + 1 ) / ( 2 . o*XKB ( 2COF 

117 


1*1+1)))) 


COF 

118 


AB(LNF.I)=RB1<LNF.I> 


COF 

119 


BB (LNF * I )=0.0 


COF 

120 


LB(LNF*I)=RB2(LNF,I) 


COF 

121 


D0BI=0QIN1/0TS 


COF 

122 


IF (KOS.LF.O) D0BI=DQIN3/DT5 


COF 

123 


OB ( LNF , I ) =D0BI + (RB1 (LNF* I )+RB2(LNF. I ) ) *TMELT 


COF 

124 


LO-LNF-1 


COF 

125 


MODIFICATION OF NODE AHEO WHEN FIRST PCM NODE AT TMELT 


COF 

126 


CB(LO*I)=0.0 


COF 

127 


DB ( LO * I ) =Dti ( LO , I ) -RB2 ( LO » I ) *TMELT 


COF 

128 


KIF=10 


COF 

129 


l=KLOK 


COF 

130 


GO TO 20 


COF 

131 

90 

CONTINUE 


COF 

132 

MODIFICATION OF FlRSTNODE OF PCM DUE TO HEAT OF FUSION 


COF 

133 


THIS IS THE FIRST HALF NODE OF PCM 


COF 

134 


sB(i,I>si).0 


COF 

135 


«B 1 ( 1 , I)=(l.u)/( (DXB<I-l)/(2.0*XKB(L*I-in > -MDxB ( 1-1 > / (2. 0*XKB (L 

-1COF 

136 


1*1-1)))) 


COF 

137 


RB2(l*I)=<l.U>/((OXB(T)/C2.0*XKBtl»I)> > + (DXB ( I > / (2. 0*XKB < 2 » I ) ) ) ) 

COF 

138 


AB(1* I)=RB1(1»I) 


COF 

139 


t)B(l»I)=0.U 


COF 

140 


CB(l,I)rKB2(i*I) 


COF 

141 


OAbI=DQINl/DTS 


COF 

142 


IF (KOS.lE.O) UABI=DGIN3/DTS 


COF 

143 


OB ( 1 , I ) =u ABI + ( RB 1 ( 1 » I ) +RB2 (1*1)) *TMELT 


COF 

144 


GO TO 140 


COF 

145 

100 

I p (FTEST(D) 110.50*120 


COF 

146 

110 

G- ( 1 . 73E-09) / ( 1 . 0/EMBB ( 1-1 > +1 . 0/EMFB ( I ) -1 . 0 > 


COF 

147 


GO TO 130 


COF 

148 

120 

G=0,0 


COF 

149 

130 

SBl 1* I )=(RHOBX( I)*CPb< 1* I)*DX8( I ) )/(2,0*DT) 

- 

COF 

150 


KB2(l,I)=(l.u)/( (OXB(I)/(2.0WXKB(1»I) ) )+(DXB(I)/(2,0*xKP(2»I 

) ) ) ) 

COF 

151 


AB(1, 1)=H(I-D+4.0*G*(TX2T(L.I-1)**3) 


COF 

152 


bB(l, I )=(-(H( I-1)+4,0*G*(TX2T<1. I)**3)+R82(l *I)+SB( 1*1 ) ) ) 


COF 

153 


CB(l,I)=RB2(i*I) 


COF 

154 


De(i,l)=3.0»>G*( (TX2T(L. I-1)**4)-(TX2T(1,I)#*4) ) -SB ( 1 » I ) *TX2T 

(1*1) COF 

155 

140 

LF=NPM( I )-l 


COF 

156 


UO 1/0 J=2*LF 


COF 

157 


IF (KUS.LT.O.AND.I.EQ.NPC) GO TO 160 


COF 

158 


SB ( J , I ) = ( RHObX ( I ) *CPb ( J » I ) *DXB ( I ) ) /DT 


COF 

159 


RBKj.I )s(1.0)/( (DXB(I)/(2,0*XKB(J-1» I) ) ) + (DXB(I)/(2.0*XKB( j 

* I) ) 

) )COF 

160 


RB2(U,I)=(l.u)/{ (0XB( I)/(2,0*XKB(J+1. I) ) > + ( DXB < I ) / ( 2 . 0*XKB ( j 

.1) ) 

) )COF 

161 


AB( J*I)=KB1(U»I) 


COF 

162 


bB(J,I)=(-(R81(J,I)+RB2(J*I)+SB(U*I) ) ) 


COF 

163 


CB(U*I)=RB2(J»I) 


COF 

164 


0B(J.I)=(-(Sb(J,I)*TX2T(J»I) ) ) 


COF 

165 


IF (KIP.LT.O) GO TO 150 


COF 

166 


MODIFICATION Op CENTER PCM NODE WHEN FIRST NODE AT TmELT 


COF 

167 


AB( J*I)=0.0 


COF 

168 


0B(J,I)=DB(J.I)-RB1(J.I)*TMELT 


COF 

169 


K IPs— 10 


COF 

170 

150 

CONTINUE 


COF 

171 


GO TO 170 


COF 

172 


MODIFICATION OF INTERIOR NODE OF PCM DUE TO HEAT OF FUSION 


COF 

173 

loO 

CONTINUE 


COF 

174 
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RB1< J*I )=<l.Q)/< (DXB< I)/(2.0*XKB(J-1* I) > )+(DXB< I)/(2.o*XKB< J* I) ) ) >COF 
RB2(U.I )=<1.0>/< <DXB< I)/(2.0*XKB( J+l* I ) ) ) ♦ (DXB ( I ) / ( 2 . 0*XKP ( J* t ) ) ) )COF 
AB(J,I)=RB1<J*I) cof 

bB(j,I)=0.0 COF 

CB( J, I)=RB2( J»I) COF 

UB(J,I)=OQINk/DTS+(RBl(J»I)+RB2< J,I) >*TMELT COF 

C9( J-l,I)=Q.O COF 

DR < U-l » I ) =06 ( J-l . I ) -RB2 ( J-l * I ) *TMELT COF 

JK=NPM(I-1) COF 

CBl JK,I-1)=0.0 COF 

OB(OR,I-1)=OB<JK#I-1)-RB2( JK* I-1)*TMELT COF 

KOP=+10 COF 

170 CONTINUE COF 

IF (I-NMB) 160 * 260 * 260 COF 

160 LNF=NPM ( I ) COF 

IF (oTEST(I)) 210* 190 »210 COF 

190 SB < LNF , I ) = < RHOBX ( I ) *CPB < LNF * I > *DXB ( I > +RH0BX (I + 1 ) *CPB (1*1+1) *DXB C I+COF 
11) )/(2.0*CT) COF 

KBl(LNF,I)=(1.0)/( (DXB(I)/(2.0*XKB(LNF-1, I) ) )+(DXB( I)/(2.0*XKP(LNFCOF 
1*1) >>) COF 

RR2(LNF,I )=(1.0)/( ( DXB ( 1+1 )/ ( 2«0*XKB( 1 » 1+1 ) ) > + < DXB < I+l ) / < 2 . o*XKB ( 2COF 
1*1+1)))) COF 

AB(LNF*I)=RBl(LNF.I) , COF 

bB ( LNF #I) = ( — (RB1( LNF # I ) +R82 ( LNF » I ) +SB ( LNF * I ) ) ) COF 

CB < LNF 1 1 ) =RB2 (LNF r I ) COF 

OB ( LNF » I ) = ( - ( SB (LNF * I ) *TX2T (LNF * I ) ) ) COF 

IF (KOP.LT.O) GO TO 200 COF 

AB(LNF. I )=0.0 COF 

OB<LNF, n=DB(LNF*I)-RBl<LNF.I )*TMELT COF 

200 CONTINUE COF 

GO TO 250 COF 

210 IF (oTEST ( I ) ) 220*190*230 COF 

220 G=(1.73E-09)/(1.0/EMBB(I)+1.0/EMFB(I+l)-1.0) COF 

GO TO 240 : COF 

230 G=0.0 COF 

240 SB(LNF.I)=(RHOBX(I)*CPB(LNF.I)*DXB(I) )/<2.0*DT) COF 

RB 1 ( LNF ,I) = <1.0)/<< DXB ( I ) / ( 2 . 0*XKB ( LNF-1 * I ) ) ) ♦( DXB ( I ) / ( 2 . 0*XKR ( LNFCOF 
1*1)))) COF 

AB(LNF.I)=RBl<LNF»I> COF 

bB ( LNF *I) = (-(Rdl( LNF* I ) +H( I ) +SB ( LNF » I ) +4 • 0*G* ( TX2T (LNF » I ) **3 ) ) ) COF 
CB(LNF. I )=H< 1 )+4.0*G*(TX2T(l*I+l)**3) COF 

DB(LNF.I )=3.0*G*( (TX2T(l»I+l)**4)-<TX2T(LNF f I )**4) )-SP (LNF, j ) *TX2TCOF 
1(LNF*I) COF 

250 CONTINUE COF 

260 MN=NPM(NMB) COF 

IF (QLOSS) 280*270*260 COF 

270 SB(MN,NMB)=(RHOBX(NMB)*CPB(MNiNMB)*DXB(NMB) )/(2.0*DT) COF 

RB1(MN,NmB)=< 1.0) /( (DXB(NMB)/(2.*XKB(MN-1*NMB) ) )+<DXB(NMb)/(2.0*XKC0F 
IB ( MN * NMB ) ) ) ) COF 

AB(MN,NMB>=Rbl(MN»NM6) COF 

8B(MN,NMb>=(-<RB1<MN*NMB)+SB<MN,NMB) ) ) COF 

CBtMN»NMB)=0,0 COF 

DB(MN,N4IB) = (-(SB(MN»NMB)*TX2T(MN*NMB) ) ) COF 

GO TO 290 COF 

280 SB(MN,NMB)=(RHOBX(NMB)*CPB(MN*NMB)*DXB(NMB) >/<2.0*DT) COF 

RB1(mN*NmB)=(1.0)/( <DXB(NM8)/(2.0*XkB(MN- 1*NMB) ) ) ♦ (DxB (NMB) / ( 2.0*XC0F 
1KB ( MN» NMb ) ) ) ) COF 

AB(MN*NMb)=Rbl(MN,NMB) COF 
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t>B < MN ♦ NMfc> ) = ( - < RBI ( MN » NMB ) +HENV+ ( 1 

. 73E-09) *FENV*4 . 0* < TX2T { MN , NMB ) **COF 

233 


13)+SB(MN,NM8) ) ) 


COF 

234 


C8(MN»NMB)=0.0 


COF 

235 


0B(MN#NMb)=(-(HENV*TENV+FENV*(1.73E-09)*( < TENV**4 ) +3, 0* < TX2T (MN» NMCOF 

236 


lb>**4 ) )+sBIMN»NM8)*TX2T(MN, 

NMB) ) ) 

COF 

237 

290 

L=NP+l 


COF 

238 


DO 330 I=1#NMB 


COF 

239 


K=NPM(I ) 


COF 

240 


IF (l.EQ.l) GO TO 300 


COF 

241 


IF (GAPX(I-l) .EQ.O. ) GO TO 

300 

COF 

242 


KT=1 


COF 

243 


GO TO 310 


COF 

244 

300 

KT=2 


COF 

245 

310 

UO 320 J=KT»K 


COF 

246 


A(L)=AB( J, I ) 


COF 

247 


b(L)=BB(J#I) 


COF 

248 


C(L)=CB< J. I ) 


COF 

249 


D(L)=DB( Jr I ) 


COF 

250 


L=L + 1 


COF 

251 

320 

continue 


COF 

252 

330 

continue 


COF 

253 


npft=l-i 


COF 

254 


IF (KAS.lT.O) nup=nap 


COF 

255 


IF (KUS.LT.0) NUP=NAP+1 


COF 

256 


IF (K0S.LT.0) NUP=NAP+2 


COF 

257 


RETURN 


COF 

258 


END 


COF 

259 
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c 

c 

c 


c 

c 


SUBROUTINE MOTGAS 

THIS SUBROUTINE DETERMINES THE MASS FLOW RATE FROM T H F 

ablating nodes 


COMMON 

COMMON 

COMMON 

COMMON 


/UMND/ 

1 TK V ( 9) 

2 RH0BX(4) 

3 NCPB(R) 

4 NPMU) 

5 TXK30) 

6 B ( 30 ) 

7 AB(S»6) 

6 RBI (5*6) 

9 XMDG(IO) 

* H<4) 

* SR (10) 
COMMON 


/ABLTN/ T,QIN*DTS,TX2(30) ,VELX*IQINPP,DEL*APRNT*INT,PE 
/ARRH/ThETA( 10) ,AP*XB,SN,CA,xMTPT(10) *A0PT 
/CCSDOT/SDOT 


MDT 

MDT 

MDT 

MDT 

MDT 

MDT 


TKC (9) * 
XK V( 9# 7) , 
XBM(4) » 
TXK(9*4) * 
GAPX (4) ♦ 
TX2T (10*6) , 
C ( 30) * 
BB ( 5* 6 ) » 
R82(5*6) , 
RHO ( 10 ) * 
IEM( 10) ♦ 
HX(20) , 

/UN0M/A8LC» ablk, 


XKC ( 9 ) 
TCPV(9) 
EMF8 ( 4 ) 

XK (9,4) 
FTEST (4) 
TULK30) 
0(30) 
CB<5'6) 

TY { 30) 
CP(10) 

PKV ( 7 ) 
TW(20) 

BL*ChARC*CHARK* 


1 ERR*, ERR3* ERRh » ERR5» F£NV, FV* HENV* 

2 lb* NCPC* NCPV * NKC * NKV, NMB* NP* 
3QLOSS* RHOC» RhOV* TAbL*TBLOW*TCHAR, TEMPI* 

4 VL * VL V* XLOST * XLSTV* XMC , XMDC, XMDT, 

5 NTK v * NPK V* 1QBLCK 


10 


20 

30 


UO 10 I=i*NP 
TUL1(I)=TUL2(I) 

XNP=nP 

KISNP 

Kll=NP-l 

IF (TX2(NP) .GE.TABL) TUL2 (NP) =TUL1 <NP ) -AP*DT*EXP(-xB/TX2 ( NP) > 
IF (SN.Eti.l.) GO TO 20 

RHO ( NP ) =RHQC+ (RHOV— RHOC ) * ( ( 1 .-SN) *TUL2 (NP) )»*(1./(1.-SN> ) 

GO TO 30 

RHO < nP ) SRHOC + ( RHOV-RHOC ) *EXP ( TUL2 ( Np ) ) 

CONTINUE 

THE TA ( NP ) r ( RHO ( NP ) -RHOC ) / (RHO V-RHOC ) 

IF (THETA(NP) .LE. ,01) RHO(NP)=RHOC 

RHO(NP)=RHOV 


MOT 

MDT 

MDT 

MDT 

MDT 

MDT 

MDT 

Mnr 

MDT 

MDT 

MDT 

MOT 

MDT 

MDT 

MDT 

MDT 

MDT 

MDT 

MDT 

MDT 

MDT 

MDT 

MDT 

MDT 


IF (THETA(NP) .GT.1.0) 

XMT=0. 

XMOG(NP)SXMT 
00 90 I = 1#KU 
KISNP-I 
2KI=KI 

IF <TX2(KI) .GE.TABU GO TO 40 
IF (SDOT.EQ.O.) GO TO 50 
TUL2 (K I ) 5 ( TUL1 ( KI ) ♦SDOT*OT/OX* ( XNP-ZK I ) / < XNP-1 . ) *TUl-2 (KI+1 ) ) / (1 . +SMDT 
100T*UT/DX*(XNP*.ZKI)/(XNP-1,)) MnT 

GO T° 50 uni 

40 CONTINUE JoI 

TUL2(KI) = (TULl(KI)-AP*DT*EXP(-XB/TX2(KI))-»-SD0T*DT/DX*(XNP-ZKn/(XNM0T 

IP-1. )*TUl2(KI + 1 ) )/(1,+SOOT*DT/Dx*(XnP-ZKI ) /{XNP-1. ) > MOT 

50 CONTINUE 

IF (SN.EQ.l.) GO TO bO M nr 

RHO(KI)=RHOC+(RHOV-RHOC)*( (1.-SN)*TUU2(KI) )**(1./(1.-SN) ) MDT 

GO TO 70 MOT 


1 

2 

3 

4 

5 

6 




MDT 

7 

TCPC (9) * 

CPC (9) * 

MDT 

8 

CPV< 9) *• 

XNPMC4) * 

MDT 

9 

EMBB ( 4 ) » 

NKP8(4) * 

MDT 

10 

TCP (9*4) » 

CPX(9*4) * 

MDT 

11 

BTEST(4) » 

TEMDl (30) * 

MDT 

12 

TUL2 ( 30 ) » 

A ( 30 ) * 

MDT 

13 

S(10) » 

R (10 ) * 

MDT 

14 

DB ( 5*6 ) * 

SB( 5*6) » 

MDT 

15 

CPB(9»6) * 

DXB(6) ♦ 

MDT 

16 

YK ( 10 ) » 

XK8(9»6) » 

MDT 

17 

XV(10) * 

TSUO) * 

MDT 

18 



MDT 

19 

dt* dx* 

EMV, EMC, 

MDT 

20 

HV* H300, 

117* 15* 

MDT 

21 

NPBS* NPF* 

NREC* MRS, 

MDT 

22 

TENV.TEST2, 

TREC, TV, 

MDT 

23 

XMp, xMT, 

XNP, NHP, 

Mht 

24 


25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 
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60 

KHO ( K I ) =RHOC + < RHOV-RHOC > *EXP < TUL2 ( K I > > 

mdt 

59 

70 

THET A ( K I ) = ( RHO { K I ) -RHOC > / < RHOV-RHOC ) 

MOT 

60 


IP (THETA(KI) .LE..01) RHO(KI)=RHOC 

mot 

61 


IF (THETA(M) .GT.1.0) RHO(KI)=RHOV 

mdt 

62 


IF UX2(KI) .LT.TABL) GO TO 80 

MDT 

63 


xMrsXMT+CA*0x/2.*( (RHO < K I ) -RHOC > **SN*EXP < 

-Xfi/TX2(Kl> ) + (RHO(Kl + U-FMOT 

64 


lH0C)**SN*£XP(-XB/TX2<KI+i) ) ) 

MOT 

65 

80 

XMTPT(KI)=X«T 

MOT 

66 


XMOG (Kl > sXMT 

MDT 

67 

go 

CONTINUE 

MOT 

68 


RETURN 

MOT 

69 


ENU 

MDT 

70 
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c 

c 

c 


c 

c 

c 


SUBROUTINE PROP 

THIS SUBROUTINE DETERMINES THE PHYSICAL PROPERTIES OF THE 
HEAT SHIELD STRUCTURE 


COMMON /ABLTN/ T , QIN.DTS, TX2 ( 
COMMON /ARRH/THETAUO) *AP,XB» 

TKC (9) 


COMMON /QMND/ 

1 TKV<9) 

2 RH0BX<4) 

3 NCPB(4) 

4 NPM(4) 

5 TX1(30) 

6 6(30) 

7 AB(5»6> 

S RBI (5*6) 

9 XMDG(IO) 

% H(4) 

* SP(10) 


XKV ( 9# 7 ) 
XBM ( 4 ) 
TXK(9#4) 
GAPX ( 4 ) 
TX2T (10,6) 
C ( 30 ) 
BB(5,6> 
RB2<5,6) 
RHO(IO) 
IEM(lO) 
HX(20) 


30) ,VELX» IQINPP.OEL, APRNT, INT.PE 
SN»CA,XMTPT(10) »AOPT 


XKC ( 9) 
TCPV<9> 
EMFB ( 4 ) 
XK (9#4) 
FTEST (4) 
TULK30) 
D ( 30 ) 
CB ( 5 » 6 ) 
TV ( 30 ) 
CP<10) 
PKV (7) 
TW(20) 


TCPC (9) 
CPV (9) 
EMBB<4> 
TCP(9»4) 
BTEST (4 ) 
TUL2 ( 30 ) 
S(10) 
DB(5»6> 
CPB(9»6) 
YK(10) 
XV(iO) 


CPC ( 9 ) 
XNpM (4 ) 
NKPB(4) 
CPX(9»4) 
TEMDI (30) 
A (30) 
R < 10 ) 
SB ( 5 ,6 ) 
DX6(6), 
XKB ( 9,6 ) 
TS(IO) 


PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 


C 

C 


10 

20 


30 


40 


50 

60 

70 

80 


90 

100 

110 


IF (RH0( I ) .NEoRHOC) ©0 TO 10 
C ALL QDOT ( 1 , TX2 < I ) , TKC , YK < I ) , XKC » DUM , NKC ) 

CALL QD 0 T( 1 »TX 2 (I) »TCPC,CP(I> ,CPC.DuM,NCPC) 

00 TO 40 

IF ( T NET Ad) • LT « • 99 ) GO TO 30 

CALL QD0TU»TX2d) ,TKV»YK(I) »XKV»DUM#NKVrNTKV»NPKVrPKVfPE) 
CALL QDOT ( 1 » TX2 ( I ) » TCPV.CP ( I ) »CPV,DuM , NCPV ) 

GO TO 40 

YK ( I ) =CHARK+ ( ABLK-CHARK ) * ( ( RHO ( I ) -RHOC ) / ( RHOV-RHOC ) > 

CP { I ) =CH ARC* ( A0LC-CHARC ) * ( ( RHO ( I ) -RHOC ) / (RHOV-RHOC ) > 
CONTINUE 

DETERMINATION OF PROPER BACK-UP SHIELD MATERIAL PROPERTY 
DO 230 I=1»NMB 

OXB(I)=XBM(I)/( (XNPM(I)-1.0)*12.0> 

LKP=NKPB(I) 

LCP=NCPB(I) 

NN=NPM(I) 

UO 220 Usl » Nn 
IF (15-1) 80,80, 60 
IF (I5-LKP) 70,70,80 
IF (TX2T(J»X)-TXK(I5»I)) 100.130,90 
uKRITE ( 6 » 250 ) I»TX2T(J»I) 

ERR2=1.0 
GO TO 240 
15=15+1 
GO TO 60 

IF ( TX2T ( J» I ) -TXK ( 15-1 » I ) ) 110tl30rl20 
15=15-1 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 


COMMON 

/UNDM/ABLC. 

A8LK » BL.CHARC.CHARK. 

dt. 

ox, 

EMV, 

EMC, PRP 

19 

1 ERR2 » 

EkR3» ERR4» 

ERR5. FENV. FV. HENV. 

HV» 

H300, 

117, 

15, PRP 

20 

2 lb, 

NCPC# NCPV. 

NKC. NK V » NMB. NP. 

NPBS. 

NPF, 

NREC , 

NRS.PRP 

21 

3GL0SS t 

RHOC# RHOV. 

TA8L.T8L0W.TCHAR, TEMPI. 

TENV. 

TEST2, 

TREC, 

TV, PRP 

22 

4 VL > 

VLV.XLOST. 

XLSTV . XMC . XMDC. XMDT. 

XMP, 

X M T # 

XNP , 

NHP.PRP 

23 

5 NTK V t 

NpKV. 1QBLCK 





PRP 

24 







PRP 

25 







PRP 

26 

DO 40 

Irl.NP 





PRP 

27 

IF (KHOV.EQ.RHOC) 

GO TO 20 




PRP 

28 


PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 


29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 


PRP 42 
PRP 43 
PRP 44 
PRP 45 
PRP 46 
PRP 47 
PRP 48 
PRP 49 


PRP 

PRP 


50 

51 


PRP 52 
PRP 53 
PRP 54 
PRP 55 
PRP 56 
PRP 57 
PRP 58 
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GO TO 50 


PRP 


120 


130 

140 

150 

160 

170 

160 

IPO 

200 


x’ ^ wv * nr 

XK8<J,I)=XK<I5-l»I>+< (XK(I5#I)-XKU5-1»I) ) / (TXK ( 15 » I )-TXK ( I 5 -I » I ) ) PRP 

I) *(TX2T(J#I)-TXK(I5-1»I) ) PRP 

GO TO 140 PRP 

XK8(J,I)=XK(I5,I) PRP 

IF (16-1) 80 # 80 » 150 PRP 

IF (16-LCP) 160 » 160 » 80 PRP 

IF (TX2T ( J» I )-TCP( I 6 » I) ) 180*210»170 PRP 

16=16+1 PRP 

GO TO 150 PRP 

IF ( TX2T (J»I)-TCP(I6-1»I) ) 190*210.200 PRP 

I 6 =Ib-l PRP 

GO TO 140 PRP 

CPB(J,I)=CPX(l 6 -l#I)+( (CPX(I6#I)-CPX(I6-1»I) )/(TCP(l 6 »I)-TCp(l 6 -l»PRP 

II) ))*<TX2T(J,I)-TCP(I6-1»I) ) PRP 

GO TO 220 PRP 


210 

220 


230 

240 

250 


CPB(J,I)=CPX(I 6 *I) 

CONTINUE 

15=2 

16=2 

CONTINUE 

RETURN 


PRP 

PRP 

PRP 

PRP 

PRP 

PRP 

PRP 


FORMAT ( lHu * 32H THE RANGE OF ONE OF THE NUMBER ,I2*71 h BACKUP STRUPRP 
1CTURE PROPERTY CURVE FITS WAS EXCEEDED AT A TEMPERATURE OF ,E12.5)PRP 
END PRP 


59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 
83 
84- 
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SUBROUT I NE QL)OT ( K » X # AX I » Y * A Y I » DER » N ' NT » NP » AZ I » Z ) 
DIMENSION AX1 (1) *AYl(9»7) » AZI ( 1 ) 

1 = 0 

IF (N-2) 10 » 70 * 30 
10 IF (u-1) 90 » 2 O * 30 
20 Y=AYI(1) 

DER=0 . 

00 TO 230 

30 IF (K) 40 » 140*40 
40 1=1+1 

IF (N-I) 80 * 60 1 50 
50 IF (X-AXKI)) 60»60»40 
60 IF (1-1) 70*70*80 
70 1=2 
80 0=1-1 

DER=(AYI (I)-AYI (J) )/(AXl(I)-AXI ( J) ) 

Y=AYI (J)+(X-AXI ( J) >*OER 
00 TO 230 
90 UO 100 1=1 *N1 

IF (AXI(I).GT.X) GO TO 110 

100 continue 

I=NT 

110 IF (i.LT.2) 1=2 
L=I-1 

DO 120 J=1 » NP 
IF (AZI(O) .Gr.Z) GO ro 130 
120 CONTINUE 
0=NP 

130 IF (u.LT.2) J=2 
M=J-I 

DER1=(AYI(I» J)-AYI <L*J) )/<AXI < I)-AXI(L) ) 
DER2=<AYI <I*M)-AYI <L*M> )/<AXI(I)-AXI(L>) 

Y ISAY I (L* J) + (X-AXI (L) )*DER1 
Y2=AYI (L»M)+(X-AXI (L) ) *DER2 
DEK=(Y1-Y2)/(AZI(U)-AZ1(M) ) 

Y=Y2+(Z-AZI (M) )*OER 
GO TO 230 

140 1=1+1 

IF (N-I) 210*210' 150 
150 IF (X-AXKI)) 160 » 160 * 140 
160 IF (1-1) 200 »200> 170 

170 IF ( ABS ( AXI ( I )-X) -ABS( AXI ( 1-1 )-X) ) 190»190*180 
180 IF (1-2) 190 » 190 » 210 

190 D1=I-1 
D2=I 
J3SI+1 
GO TO 220 
200 01=1 
02=1+1 
03=1+2 
GO TO 220 
210 01=1-2 


QDT 1 
QOT 2 
GOT 3 
QDT 4 
QOT 5 
QDT 6 
OOT 7 
QDT 8 
QDT 9 
QOT 10 
QDT 11 
QDT 12 
QDT 13 
QDT 14 
QDT 15 
QDT 16 
QDT 17 
QDT 18 
QDT 19 
QOT 20 
QDT 21 
QOT 22 
QDT 23 
QOT 24 
QDT 25 
QDT 26 
QDT 27 
QDT 28 
QDT 29 
QDT 30 
QDT 31 
QDT 32 
QDT 33 
QDT 34 
QDT 35 
QDT 36 
QDT 37 
QDT 38 
QDT 39 
QDT 40 
QDT 41 
QDT 42 
QDT 43 
QDT 44 
QDT 45 
QDT 46 
QDT 47 
QDT 48 
QOT 49 
QDT 50 
QDT 51 
QDT 52 
QDT 53 
QDT 54 
QDT 55 
QDT 56 
QDT 57 
QOT 58 
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J2=I-1 ODT 59 

J3=I ® ot 60 

C ODT 61 

220 A=((AYI(d3)-AYI(J2))/(AXl(J3)-AXI(J2))-(AYl(Jl)-AYI(J2))/(AXKJl)-0DT 62 

1AXKJ2) ) )/(AXl ( J3)-AXI« Jl) ) OOT 63 

6= ( AY I ( J1 ) -AY I ( J2 ) ) / « AXI ( J1 ) -AXI ( J2 ) ) -A* < AX I ( Jl ) -AXl ( J2 ) ) GOT 64 

Y= ( A* ( X-AXI ( J2 ) ) +B ) * ( X-AXI ( J2 ) ) ♦ AYI I J2 ) GOT 65 

DER=2.*A*(X-AXI(J2) )+B OOT 66 

230 RETURN GOT 67 

C GOT 68 

tND GOT 69 
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C) n o o o 


> 



SUBROUT I NE RECESS ( XMDC » XLOST# TREC #DT » RHOC * 

TS»SR,TX2*NREC,NRS*ERR5 

* RCS 

1 


1SOOT) 


RCS 

2 




RCS 

3 


THIS SUBROUTINE DETERMINES THE FRONT RACE 

LOCATION AND CHAR MASS 

RCS 

4 


removal rate 


RCS 

5 




RCS 

6 




RCS 

7 


DIMENSION TS(lO) *SR<10> 


RCS 

8 


IF HX2-TREC) 10*20*20 


RCS 

9 

10 

XMDC=0.0 


RCS 

10 


XLOST=0.0 


RCS 

11 


SOOT=0.0 


RCS 

12 


GO TO 120 


RCS 

13 

20 

IF (NRS-1) 50*50*30 


RCS 

14 

30 

IF (NRS-NREC) 40*40*50 


RCS 

15 

40 

IF (TX2-TS(NRS) ) 70*100*60 


RCS 

16 

50 

WRITE (6*130) fX2 


RCS 

17 


ERR5=1.0 


RCS 

18 


GO TO 120 


RCS 

19 

60 

NRSsNRS+1 


RCS 

20 


GO TO 30 


RCS 

21 

70 

IF ( TX2-TS ( NKS-1 ) ) 80*100*90 


RCS 

22 

80 

imRS=NRS-1 


RCS 

23 


GO TO 20 


RCS 

24 

90 

SX=SK (NRS-1 )+< (SR(NRS)-SR(NRS-l) )/(TS(NRS) 

-TS (NRS-1) ) )*(TX2-TS(NRSRCS 

25 


1-1) ) 


RCS 

26 


GO TO 110 


RCS 

27 

100 

SX=SK(NRS) 


RCS 

28 

110 

XLOST=300.0»SX*DT 


RCS 

29 


XMDC= ( XLOST*RHOC ) /DT 


RCS 

30 


SDOT=SXW300.0 


RCS 

31 

120 

RETURN 


RCS 

32 




RCS 

33 

130 

FORMAT ( 1HO » 75H THE RANGE OF THE SURFACE RECESSION TABLE WAS EXCEERCS 

34 


1DED AT A TEMPERATURE OF *1PE12.5) 


RCS 

35 


END 


RCS 

36 
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n o 


SUBROUTINE swuft<a,b*c»d»t,n> 

this subroutine determines the forward time step temperatures 

BY SOLVING THE TRI-DIAGONAL MATRIX 

COMMON /BREV/ KUS * KAS, KOS»NAP#NPC »NlFPCM,DOINl »DQIN2,DGIN3 ,kA» K u 
1, TMELT 
COMMON/SID/ NUP 

DIMENSION A<30) .8(30) #C<30) #D<30> *T{30> ,CP<30> ,DP<30) 

IF (NPC.EQ.O) GO TO 10 

IF (KAS.GT.0.AND.KUS,GT«0«AND.K0S.GT.0> GO TO 10 
M=N 

NrNuP 

10 CONTINUE 

CP( 1 ) sC ( 1 ) /B ( 1 ) 

DP( l ) sD( 1 ) /B ( 1 ) 

DO 20 I=2»N 

cp(i)sC(i)/<a<i)-A(i)*cP(i-ii » 

DP( I ) S(D( I ) -A ( I ) *DP< 1-1) ) /(B ( I )-A< I ) *CP ( 1-1 ) ) 

20 CONTINUE 
T(N)=DP(N) 

NMlsN-1 

DO 30 Jri»NMi 

I=N-J 

T(I)=DP(I)-CP(I)*T(I+1) 

30 CONTINUE 

IF (NPC.EQ.O) GO TO 60 

IF (KAS.GT.O.ANO.KUS.GT.O.AND.KOS.GT.O) GO TO 60 

T(NUP+1)=TMELT 

K=NuP+2 

CP(K)SC(K)/B(K) 

DP(K)sD(K)/B(K) 

kk=k+i 

DO 40 I=KK,M 

CP ( I ) SC ( I ) / ( B ( I ) -A ( I ) *CP ( 1-1 ) ) 

DP ( I ) S ( D ( I ) — A ( I ) *DP ( I— 1) )/(8(I)-A(I)*CP(I-l) ) 

to continue 

T(M)=OP(M> 

NMlrw-1 

DO SO U=1*NM1 

l=M-j 

T(I)=DPU)-CP(I)*T(I + 1) 

50 CONTINUE 
N=M 

60 CONTINUE 
RETURN 
END 


SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 

SWT 


1 

2 

3 

4 

5 

6 
7 
6 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 
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overlay 

PROGRAM 


(P5490 *4 * 0 ) 
RSICMP 


RSI 

RSI 


10 

20 

30 

40 


50 


DIMENSION 

ALFAl (20 ) *C (50 ) *DX(21 

) *DZ (41 ) *GG( 10) »KT ( 50 ) »KX ( 50 ) .K2(50RSI 

2 

1 ) *NL (5) » V ( 50 ) 






RSI 

3 

DIMENSION 

A (40 *40) * AH (41 *21) * AI 

(40*20) *Ay (41*21 )*FH( 40* 

10) »FP(40 

» 1RSI 

4 

10) *FS(40* 

10) *FSM(40»10) *FV(40»10) *GX(4l,21 

) *R( 40.40 > *TH (41.21 )» TV (RSI 

5 

241*21) 







RSI 

6 

DIMENSION 

d(40*l* 

40) 





RSI 

7 

COMMON/BLOCKA/A » 

AH 

* AI 

* ALFAl . 

AV * B 

* c 

* RSI 

8 

1 DELX » 

DELZ » 

DX 

* D Z 

. FH . 

FP » FS 

* FSM 

. RSI 

9 

2 Fv * 

GG * 

GX 

. HI 

. H2 * 

H4 * H5 

* I 

» RSI 

10 

3 11 * 

12 * 

14 

* 15 

» I R » 

J * Jl 

» U2 

. RSI 

11 

4 J4 » 

J5 * 

JTA 

» JTB 

* JTC » 

K » KCL 

» KI 

* RSI 

12 

5 KKft * 

KSw 1 * 

KSW2 

» KT 

* KX » 

KZ » L 

. M 

* RSI 

13 

6 MS » 

NCASE * 

NH1 

» NL 

* NLJ * 

NV1 * PARTA 

. parts 

* RSI 

14 

7 PX * 

U * 

R 

» SF 

* TH . 

TV » V 

* X 

. RSI 

15 

8 XZl * 

XZ2 * 

XZ4 

» XZ5 

* ZXl » 

ZX2 * Z* 4 

* ZX5 

RSI 

16 

9* NTLST1 







RSI 

17 

COMMON 

AL 


.ALPHA (99 

) .ALT ( 99) 

* AME 

» AMI 

RSI 

18 

1 * AOFA 

* AOFE 


,AROD 

*AS 

»AX(9»H*9) 

* AY( 9 * 11 * 

9)RSI 

19 

2* BATA 

.BE 


.BETA (99) 

*BF 

*BFL 

» 6 L 

RSI 

20 

3* DELTA 

» 01 AM 


, D1ST ( 9 ) 

*DST 

»E(20.99) 

*eall 

RSI 

21 

4* EAT (20*99) *EDOT ( 

20*99) *EMIS(9) 

.FACC 

*FCU(20»99) 

* FCY ( 20 *99 ) RSI 

22 

5 * FNET (20 ) 

» FSU ( 20 * 99) 

. FT ( 20 ) 

*FTU(20*99) »FVE 

»F07 

RSI 

23 

6*6(20*99) 

» HH 


.HINS 

,HINSD(99 

) * ICONF 

»ilinko 

RSI 

24 

7* IQlNP 

* ITURB 


,iwalt 

.MAT (9.9) 

» MPT (9.9) 

»MR(g,18) 

RSI 

25 

6 * NCOLM 

.NCR 


. NCRC 

*NF 

*NI ( 18 ) 

»NINS 

RSI 

26 

9»NMAT 

.NMIN 


.NPRT 

. NPSG 

*NR ( 18 ) 

.nrsg 

RSI 

27 

S.NSEG 

. NTRAJ 


»N33 

*PE 

.PHI 

»PI 

RSI 

28 

$*PINP(99) 

* GCONL ( 9 ) 

.QCONT (9) 

» Q I NP ( 99 ) 

»QNET(9> 

» RHO ( 9 ) 

RSI 

29 

S*RH01 

.RYE 


*RYI 

»SL 

»SLS 

.staat 

RSI 

30 

*»STI 

.STOOP 


. T ( 20*99) 

»TALLW(9) 

* TAMP ( 9 * 9 ) 

»TAU 

RSI 

31 

**TC 1 

*TEMP(9»9) 

.THETA 

»TI 

,TIME(99) 

.TINS 

RSI 

32 

S*TINS0(99 

) » (JF 


* VFACT (9* 

18) * Vi 

* V I NF ( 99 ) 

.WROTE 

RSI 

33 

S*XEMIS 

* XSTG ( 99 ) 

. XX ( 20 ) 

. Y(9 ) 

»ZZ(20> 


RSI 

34 

WRITE (6*60) NMIN 

* N33 





RSI 

35 

00 50 NTEST=1*2 






RSI 

36 

GO TO (10 

*20) NTEST 





RSI 

37 

NTEST1=NMIN 






RSI 

38 

GO TO 30 







RSI 

39 

IF (N33.EG.NMIN) 

GO TO 

50 




RSI 

40 

NTEST1=N33 






RSI 

41 

DO 40 11= 

1*12299 






RSI 

42 

A ( 1 1 ) =0 , 0 







RSI 

43 

CALL MAIN 







RSI 

44 

CALL MATRX4 






RSI 

45 

CONTINUE 







RSI 

46 

RETURN 







RSI 

47 


60 FORMAT <1H1»* NOW FOLLOWS 
1ATEO FOR TWO TIME FRAMES* 
2=*»I3»* .*//) 

END 


OUTPUT FROM PROGRAM P2354 STRESS* 
SPECIFIED BY NMIN =*.I3»* AND 


RSI 

CALCULRSI 
N33 RSI 
RSI 
RSI 


48 

49 

50 

51 

52 


1-80 



subroutine 

INPUTX 








INX 

1 

DIMENSION 

ALFAK2Q) »C(50) .DX(21) 

»DZ ( 41 ) i 

GG(IO) .KT(50) .KX(50) ,K2(50INX 

2 

1 ) . NL ( 5) . V ( 50 ) 








INX 

3 

DIMENSION 

A ( 40 . 40 ) 

.AH(41.21) .AI (40.20) .AV( 41. 

21) »FH(40.l0> 

. FP (40 

.1INX 

4 

10) 'FS (40. 10) »FSM(40*10) 

»FV(4Q.lQ) »GX ( 4 1 i 

21).R(40» 

90 ) *TH(4l 

♦ 2l ) * TV ( INX 

5 

241.21) 









INX 

6 

DIMENSION 

8(40.1 .40) 







INX 

7 

common/rlocka/a . 

AH 

. AI 

. ALFAl 

. AV 

9 

B * 

C 

. INX 

8 

1 OELX . 

DELZ » 

DX 

# DZ 

» fh 

» FP 

9 

FS . 

FsM 

» INX 

9 

2 FV . 

GG . 

GX 

. HI 

. H2 

. H4 

9 

H5 . 

I 

» INX 

10 

3 11 . 

12 . 

14 

. 15 

. IR 

. J 

9 

J1 . 

U2 

» INX 

11 

4 J4 » 

J5 . 

JTA 

» JTB 

. UTC 

. K 

9 

KCL » 

*1 

. INX 

12 

5 KRw » 

KSwl » 

KSW2 

» KT 

. KX 

► KZ 

9 

L . 

M 

. INX 

13 

6 MS . 

NCASE . 

NH1 

» NL 

» nlj 

. NV1 

9 

PARTA » 

PARTB 

. INX 

14 

7 PX . 

u . 

R 

. SF 

. TH 

. TV 

9 

V » 

X 

. INX 

15 

8 X21 » 

XZ2 » 

XZ4 

. XZ5 

» ZXl 

. ZX2 

9 

ZX4 » 

ZX5 

INX 

16 

9. NTtSTl 









INX 

17 

COMMON/BLOCKd/ IPRINT* 

NC . NH. NLC. NV. 

PZ. VB 



INX 

18 

COMMON /LINK/ NSECT.TC. 

TS.TSKIN1 

.TSKIN2 

.TINS1 

»TINS2»TINS3* 

XqST 

INX 

19 

common 

AL 

9 

ALPHA (99) 

. alt ( 99 ) . 

AME 

.AMI 

INX 

20 

i.aofa 

. AOFE 

* 

AROD 

.AS 

9 

AX ( 9 

.U.9)»AY(9,U, 

9) INX 

21 

2.BATA 

. uE 

9 

BETA (99) 

»BF 

9 

BFL 

»BL 

INX 

22 

3. DELTA 

»UIAM 

9 

DIST (9) 

.DST 

9 

E ( 20 

.99) .EALL 

INX 

23 


#FACC 


6.6(20.99) 
7. IGINP 
8 » NCOLM 
9.NMAT 

$ . nseo 

S.PlNP(99) 
S.RHOI 
S t ST I 
S.TCl 

$.TlNSD(99> 

*.XEMIS 


.FSU(20»99) .FT (20 ) 
» hh 

. ITURB 
» NCR 
»NMIN 
t NTRA J 
.UC0NL(9> 

.RYE 
.STOOP 
» TEMP (9# 9) 

,UF 

.xSTG(99) 


.FTU(20.99) »FVE 


.HJNSD (99) 
.MAT (9.9) 
»NF 
.NpSG 
»PE 

»QINP(99) 

.SL 

,TALLW(9> 

» TI 


. ICONF 
. MPT (9.9) 
.NI (18) 

» NR ( 18 ) 
.PHI 

»GNET(9> 

. SLS 

,TAMP(9*9) 
» TIME ( 99 ) 
»VINF(99> 

. ZZ (20 ) 


4»EAT(20»99). EDOT (20.99) #EMIS(9) 

5.FNET (20 ) 

»HINS 

.iwalt 
. NCRC 
»NPRT 
»N33 

♦QCONT (9) 

.RYI 

»T ( 20.99) 

.THETA 

,VFACT(9.18) »Vl 
. XX ( 20 ) . Y( 9 ) 

DIMENSION MTL ( 13 ) 

DATA (MTL ( I ) * 1=1.13>/1.2»1»3*4.4»4.4.4»4»4.4»5/ 
EQUIVALENCE (TB.TINS2). (TF.TSKINl). (TR.TINSl) 

C SEE COMMENT ON PZ IN SUBROUTINE INPUTS. 

C IPRINT = NON-ZERO INTEGER FOR DE-BUG PRINT-OUT. 

C IPRINT = 0 OR BLANK FOR OMISSION OF DE-BUG PRINT-OUT. 
C NV IS AN INPUT PARAMETER. BUT NOTE MANY STATEMENTS 
C PARTICULAR VALUE NV = 7. 

FVE=(1,-VB)/(1.+VB)/(1.-2.*VB) 
t ( 4 , NTEST1 ) =E ( 4 . NTEST1) *FVE 
NHlsNH— 1 
NV1=NV-1 
NLU=NH+2 
DX ( 1 ) sHH+TF 
DX(2)=TB 

DX(3)=2.*(TR+.5*TC)/7. 

UX(4)=DX(3) 

DX(b)=DX(3) 

0X(b)=.5*DX(3> 

OX(NV)— 1 .0 
OX(NV+1)=1.0 
N1=NH-15 


»FCU(20»99) *FCY(20.99)INX 


» F07 
. ILINKO 
»MR<9. 18) 

.NINS 

.NPSG 

»PI 

►RHO ( 9 ) 

.staat 

»tau 

.tins 

.WROTE 


SET UP FOR THE 


INX 
I NX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 
INX 


24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 


I-bi 



N2=Nl+4 

INX 

59 


N3=N2+6 

I NX 

60 


DO 10 I=1*NH1 

INX 

61 


UZ< I)=,5*SL/(Nl+5) 

INX 

62 


IF (I.GT.Kl) DZ(I)=DZ<l)/2. 

INX 

63 


IF (I.GT.N2) DZ(I)=DZ(l)/3. ; 

INX 

64 


IF (I.GT.N3) Dz<I>=DZ<l>/4. 

INX 

65 

10 

continue 

INX 

66 


DZ<NH)=1.0 

INX 

67 


DZ(NH+1)=1.0 

INX 

68 


DO 30 J=i*7 

INX 

69 


AH(lr J)=0Z(l)/2. 

INX 

70 


DO 20 I=2»NH1 

INX 

71 

20 

AH(I^J)=.5*(DZ(I-1)+DZ(I) > 

INX 

72 

30 

AH(NH»J)=DZ(NHl)/2. 

INX 

73 


00 40 J=1 ’ 6 

INX 

74 


DO 40 I=1*NH 

INX 

75 

40 

TH( I, J)=T (2*J»NTESTl)-b30. 

INX 

76 


DO SO I=1#NPSG 

INX 

77 


LL=MTL(I) 

INX 

78 

50 

ALFA1(I)=TRPLAT(AY»AX#T(I«NTEST1) #LL»4*MPT(LL#4) ) 

INX 

79 


DO 60 I=1»NH1 

INX 

80 


AV( I*1)=|F 

INX 

81 


AVU»2)=TF 

INX 

82 


AV( I#3)=DX(6) 

INX 

83 


AV( Ir4)=DX(3> 

INX 

84 


AV( I,5)=JX(3) 

INX 

85 


AV( I,6)=UX(3) 

INX 

86 

60 

AV(I*7)=TC 

INX 

87 


DO 70 J=l»7 

INX 

88 


DO 70 I=1»NH 

INX 

89 

70 

TV(I» J)=T(2*J-l»NTESTl)-530. 

INX 

90 


DO 60 1=1*6 

INX 

91 


LL=MTL(2*I) 

INX 

92 

80 

GGU)=TRPLAT(Ay*AX.T( 2*I#NTEST1) ,LL*ll*WPT(LLf 11) ) 

INX 

93 


RETURN 

I MX 

94 


END 

INX 

95 


1-82 



SUBROUTINE INPUTY 






INY 

DIMENSION 

ALFAl (20) 'C (50) .DX(21) 

»0Z(41) ,GG(10) »KT(50) 'KX(50) »KZ(50INY 

1) *NL(5) . 

V ( 50 ) 






INY 

DIMENSION 

A (40 '40 ) 

» AH (41 * 21 ) » AI ( 40»20) ' Ay (41 »21 ) »FH<40 ' 

10) »FP(40 

» 1 INY 

10) »FS<40 

9 

10) »FSM(40»10) 

»FV(40»10) »6X(41»21)'R(40»40) »TH(4l.2l) »TV(INY 

241.21) 








INY 

DIMENSION 

B ( 40 ' 1 » 40 ) 





INY 

COMMON/BLOCKA/A , 

AH 

' A I 

» ALFAl 

AV ' B 

' C 

' INY 

1 DELX 

9 

DELZ ' 

DX 

' DZ 

» FH 

FP » FS 

» FSM 

» INY 

2 FV 

9 

GG ' 

GX 

» HI 

» H2 

H4 » H5 

' I 

' INY 

3 11 

9 

12 ' 

14 

» 15 

' IR 

J ' Jl 

» J2 

» INY 

4 J4 

9 

J5 ' 

JTA 

» JTB 

» JTC 

K » KCL 

» Kl 

» INY 

5 KRrt 

9 

KSW1 ' 

KSW2 

» KT 

» KX 

KZ » L 

' M 

» INY 

6 MS 

9 

NCASE ♦ 

NH1 

' NL 

* nlj 

NV 1 ' PARTA 

» partb 

» INY 

7 PX 

9 

Q ' 

R 

♦ SF 

» TH 

TV » V 

' X 

' INY 

8 XZ1 

9 

XZ2 ' 

XZ4 

» XZ5 

' ZXi 

ZX2 » Z*4 

* Zx5 

INY 

9 » NTEST1 








INY 

COMMON/BlOCKiS/ IPRINT . 

NC* NH» NLC» NV' PZ» VB 


INY 

COMMON 


AL 

9 

ALPHA (99) 

* alt ( 99 ) »ame 

»AMI 

INY 

1 » AOFA 


» AOFE 

9 

AROD 

'AS 

- »AX(9»ll»9) 

»AY(9*11' 

9 ) INY 

2 » BAT A 


' BE 

9 

BETA ( 99) 

.BF 

»bfl 

»BL 

INY 

3 'DELTA 


»DlAM 

9 

OIST ( 9 ) 

♦ DST 

'E ( 20 » 99 ) 

»eall 

INY 

4 ' EAT (20 » 

99) *£DOT (20*99) 

♦EMIS<9) 

»FACC 

*FCU(20'99) 

'FCY(20»99)INY 

5 ' FNET (20 ) 

»FSU(20»99) » 

FT ( 20 > 

.FTU(20 

» 99 ) 'FVE 

»F07 

INY 

6'G(2U,99) 

» HH 

9 

HINS 

»HINSD(99) »ICONF 

»ilinko 

INY 

7'IOINP 


» 1 TURB 

f 

iwalt 

#MAT ( 9» 

9) »MPT ( 9» 9) 

'MR ( 9' 16 ) 

INY 


INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 

INY 


8 'NCOlM 

.NCR 

. NCRC 

»nf 

»NI(lfl) 

'NIN 5 

9'NMAT 

'NMIN 

.nprt 

»NPSG 

'NR(IB) 

.NRSG 

S'NSEG 

.NTRAJ 

» N33 

,PE 

'PHI 

.PI 

$»PINP(99) 

. UCONL ( 9 ) 

, OCONT ( 9) 

»QINP ( 99 ) 

'QNET (9) 

'RHO( 9) 

5'RHOI 

.RYE 

» RY I 

'SL 

► SLS 

'STAAT 

S'STI 

.STOOP 

, T ( 20 » 99) 

.TALLW(9) 

,TAMP(9'9) 

»TAU 

S'TCl 

. TEMP(9'9) .THETA 

'TI 

,TIME(99) 

'TINS 

5 » TINSD ( 99 ) 

'UF 

. VFACT ( 9 » 10 

i) .VI 

,VINF(99) 

'WROTE 

$ » XEMIS 

* XSTG( 99) 

. XX ( 20 ) 

. Y ( 9 ) 

'ZZ ( 20) 


PZ IS ZERO, 

READ IT 

IN AS SUCH. 

DO NOT OMIT A DATA CARD. 

PX— Pt/144 • 
ESSURE PE IS 

sent via 

COMMON FROM 

PREVIOUS 

CALCULATION. 



NLJ=NH+2 
DO iO I=1'NH 
KZ(I)=I 
KX(I)=7 
KT(I)=2 

10 C(I)=-PX*AH(I'7) 
KZ(NH+1)=NH 
KX(NH+1)=1 
KT(NH+1)=1 
C<NH+1)=PZ*.S 
KZ ( NH+2 ) -NH 
KX(NH+2)=2 
KT(NH+2)=1 
C(Nh+2)=PZ*,S 
RETURN 
END 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 
54- 


1-83 



subroutine i.nputz 





INZ 

1 

DIMENSION ALFAK 20 ) #C(50> #DX(21) * 

DZ(41) #GG(10)»KT(50) ,KX(50) *KZ(50INZ 

2 

1 ) »Nl(5) * V(50) 





INZ 

3 

DIMENSION A (40 #40) # Ah (41 *21) »AI (40»20> » AV(41»21) #FH(40» 

10)*FP(40#1INZ 

4 

10) * FS (40 # 1 0 ) »FSM(40#10) »FV(40»10) 

*GX(41#21) *R(40#40> »TH(41*21) * 

TV ( INZ 

5 

241 » 21 ) 





INZ 

6 

DIMENSION B ( 40 # 1 » 40 ) 





INZ 

7 

COMMON/RLOCKA/A # AH 

* AI # 

ALFAl , 

AV * B 

* c 

» INZ 

8 

1 DELX » QELZ » OX 

* DZ # 

FH » 

FP # FS 

» FSM 

* INZ 

9 

2 Fv # GG # GX 

# HI # 

H2 * 

H4 » H5 

# I 

* INZ 

10 

3 11 #12 #14 

* 15 * 

IR » 

J # Jl 

» J 2 

♦ INZ 

11 

4 J4 # 05 # OT A 

* JTB , 

JTC * 

K * KCL 

» K I 

. INZ 

12 

5 KRw # KSw 1 # KSW2 

# KT # 

KX » 

KZ * L 

* M 

* INZ 

13 

6 MS » NCASE * NH1 

# NL * 

nlj * 

NV1 * PARfA 

# PARTS 

♦ INZ 

14 

7 PX # Q # R 

» SF , 

TH » 

TV # V 

# X 

* INZ 

15 

8 XZ1 » XZ2 # XZ4 

* XZ5 » 

ZX1 * 

ZX2 # ZX4 

* ZX5 

INZ 

16 

9# NTEST1 





INZ 

17 

COMMON/BlOC K d/ IPRINT# 

NC* nh# nlc# nv» pz 

» VB 


INZ 

18 

COMMON AL 

, ALPHA (99) 

* ALT ( 99) 

♦ AME 

♦ AMI 

INZ 

19 

1 # AOF A »AOFE 

#AROD 

»AS 

*AX(9*H*9) 

» AY ( 9# 11 

*9) INZ 

20 

2»BATA #BE 

,BETA(99) 

*BF 

♦ BFL 

#BL 

INZ 

21 

3# DELTA »OIAM 

#DIST(9) 

#DST 

*£(20*99) 

*EALL 

INZ 

22 

4# EAT ( 20 #99) #EDOT<20>99) #EMIS(9) 

»FACC 

»FCU(20»99) 

#FCY(20» 

99) INZ 

23 

5»FNEI (20 ) *FSU(20»99) 

#FT (20 ) 

»FTU( 20*99) »FVE 

*F07 

INZ 

24 

6*6(20 #99 ) * HH 

.HINS 

#HINSD(99 

) » ICONF 

* ILINKO 

INZ 

25 

7 * IOINP # ITURB 

♦iwalt 

♦mat (9*9) 

*MPT(9»9) 

♦MR ( 9 * 18 

) INZ 

26 

8 # NCOlM #NCR 

# NCRC 

#NF 

»NI ( 18 ) 

»NINS 

INZ 

27 

9 # NMA [ t NMIN 

,NPRT 

#NPSG 

» NR ( 18 ) 

» NRSG 

INZ 

28 

S.NSEG *NTRAJ 

#N33 

*PE 

# PHI 

♦ PI 

INZ 

29 

S # PINP (99 ) »QCONL (9) 

#0C0NT(9) 

»QINP(99) 

*QNET<9> 

»RHO( 9) 

INZ 

30 

S»RHOI * RYE 

,RYI 

♦ SL 

*SLS 

•staat 

INZ 

31 

t#STI .STOOP 

»T(20*99) 

#TALLW (9) 

#TAMP(9»9) 

♦ TAU 

INZ 

32 

S»TC 1 #fEMP(9#9> 

# THETA 

»TI 

»TIME(99> 

♦ TINS 

INZ 

33 

* » TINSD ( 99 ) *UF 

#VFACT(9»18)*VI 

*VINFC99) 

♦WROTE 

INZ 

34 

% # XEM1S #XSTG(99) 

» XX ( 20 ) 

»Y(9) 

*ZZ(20) 


INZ 

35 

CONST Rsl 0 • **20 





INZ 

36 

DO 10 1=1*7 





INZ 

37 

KZ ( 1 ) =1 





INZ 

38 

KX ( I ) =1 





INZ 

39 

KT ( I ) =1 





INZ 

40 

C(l)=CONSTR 





INZ 

41 

KZ < 8 ) =NH 





INZ 

42 

KX(d)=l 





INZ 

43 

KT(8)=2 





INZ 

44 

C(8)=C0NSTR 





INZ 

45 

RETURN 





INZ 

46 

END 





INZ 

47 


I- 84 



o n n r> n a c, 


SUBROUTINE N-A IN 





MAN 

1 

TWO dimensional stiffened SHEET 




MAN 

2 






MAN 

3 

CDC VERSION MAY 1967 





MAN 

4 

PROGRAM wUMbt.R 2354 





MAN 

5 






MAN 

6 

o.r. *ittkow 





MAN 

7 






MAN 

8 

uIMENSIOn ALFAK20) »C(50) #0X(21) 

,DZ(41) ,GG(10) ,KT(50) ,KX(50) ,*Z (50MAN 

9 

1 ) *NL(5> , V<50) 





MAN 

to 

DIMENSION A(40»40) »AH(41»21) »AI( 40*20 ) »AV( 41*21 ) »FH» 40 » 

10 ) »FP(40 

, lMAN 

11 

1U) *FS(40* 10) * FSM ( 40 » 10 ) *FV ( 40 * 1 0 > * 6X ( 41 , 21 ) * R < 40 * 40 1 . th ( 4 1 * 21 ) ♦ TV < MAN 

12 

241*21 ) 





MAN 

13 

DIMENSION 0(40,1*40) 





MAN 

14 

C0MM0N/6L0CKA/A , AH 

, A I 

, ALFAl , 

A V , B 

* c 

, MAN 

15 

1 DELX , UEuZ , DX 

, DZ 

, FH , 

FP , FS 

» FSM 

, MAN 

16 

2 F v , GG , GX 

, HI 

, H2 * 

M4 , H5 

, I 

, MAN 

17 

3 I 1 , 12 ,14 

, 15 

, IR * 

J , J1 

* J2 

, man 

18 

4 J4 , 05 , JTA 

, JTb 

, JTC * 

K , KCl 

* M 

, MAN 

19 

5 KR» , KSm 1 , KSw2 

, KT 

, KX , 

KZ , L 

, M 

, MAN 

20 

6 MS , I’JLASE , NH1 

* NL 

, NL J , 

NV1 , PARTA 

, PARTB 

, MAN 

21 

7 Px t •* , R 

, SF 

, T H , 

TV * V 

, X 

, MAN 

22 

6 XZ1 , XZ2 , XZ4 

, XZ5 

, zxi , 

ZX2 , ZX 4 

» Zxb 

MAN 

73 

9, NTtST ) 





MAN 

24 

tOMMON/ULOCK ;/ IPRINT, 

NC* NH, NLC* fiV , P2 

, VP 


MAN 

25 

COMMON «L 

, ALPHA ( 99 ) 

, ALT (99) 

, amf 

, AMI 

MAN 

26 

1 , AOF A , aOFE 

, AROD 

,AS 

* AX (9,11,9) 

* AY(0, 11, 

9)MAN 

27 

2 , HATA * IjE 

, BETA ( 99 ) 

»BF 

*BFL 

, BL 

MAN 

28 

3.0ELIA ,olAM 

* DIST ( 9 ) 

,DST 

* E ( 20 , 9° ) 

,£ALL 

MAN 

29 

4, eat (20. 99) , eDOT ( 20 * 99 ) ,EMIS(9) 

,FACC 

,FCU(20*99) 

, F(*Y (20,99 ) MAN 

30 

5 , FNtT (20 ) , F Su ( 20 , 99 ) 

, FT ( 20 ) 

,FTJ( 20,99) * FVE 

,F07 

MAN 

31 

6,G(2u*99) * mH 

,HINS 

,HINSD(99) , ICONF 

, ILINKP 

MAN 

32 

7 , I QInP .ITURb 

, iwalt 

, MAT (9,9) 

, MPT (9, °) 

*MR(p, 18) 

MAN 

33 

8 , NCOlM ,nCR 

, NCRC 

,nf 

,NI(18) 

,NINS 

MAN 

34 

9 , NMA T *NMIN 

, NPRT 

,NPSP 

, NR ( 18 ) 

, NRSG 

MAN 

35 

t » NSEu *nTRAJ 

,N33 

,PE 

, phi 

,PI 

MAN 

36 

3>.P1nP(99) , UCONL ( 9 ) 

, GCONT ( 9 ) 

,QINP(99) 

,QNET (9) 

, RHO ( 9 ) 

MAN 

37 

S , RH01 , ivYE 

,RYI 

* SL 

*SLS 

, staat 

MAN 

3B 

$ , ST I , STOOP 

* T ( 20 , 99 ) 

,T ALLW (9) 

, T AMP (9*9) 

, TAU 

MAN 

39 

$ , TC 1 ,rEMP(9,9) 

, THETA 

,TI 

, TIME ( 9° ) 

, TIN S 

MAN 

40 

S,TInsD(99) *uF 

,VFACT(9» 18) »Vl 

* VINF(9 Q ) 

•wrote 

MAN 

41 

$,XEMiS , xSTG ( 99 ) 

, XX ( 20 ) 

,Y(9) 

* ZZ ( 20 ) 


MAN 

42 

10 JTA=1 





MAN 

43 

oTB-o 





MAN 

44 

OTC— 4 





MAN 

45 

REWIND JTA 





MAN 

46 

REWIND jtp 





MAN 

47 

REWIND JTC 





MAN 

48 

CALL INPUTX 





MAN 

49 

MS=2*NV 





MAN 

50 

IF UPRINT.EO.O) GO TC 

110 




MAN 

51 

WRITE (6,440) 





MAN 

52 

K=2 





MAN 

53 

KX<l)=NVl+6 





MAN 

54 

DO 40 1=1 , NH 





MAN 

55 

K=K+KX(1) 





MAN 

56 

IF ( K-56 ) 30,30,20 





MAN 

57 

20 WRITE ( 6 ,450 ) 





MAN 

58 
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K=Ka(1) 

MAN 

59 

36 

WRITE ( 6 , 460 ) I 

MAN 

60 


WRITE (6,470) ( J, OX < J) » AH ( I , J ) ,E ( 2*J» NTEST1 ) » T ( 2* J , NTESTl ) ♦ ALFA1 < 2MAN 

61 

1*0 » , j=l,NVl> 

MAN 

62 

40 

continue 

MAN 

63 


WRITE (6,480) 

MAN 

64 


K=2 

MAN 

65 


«.X<l)=NHl + 6 

MAN 

66 


00 70 J=i»NV 

MAN 

67 


K=K+KX( 1 ) 

MAN 

68 


IF ( K-56 ) 60.60, 50 

MAN 

69 

50 

WRITE ( 6 , 450 ) 

MAN 

70 


K=KX(1) 

MAN 

71 

60 

wRITt ( 6 » 490 ) J 

MAN 

72 


WRITE (6,470) (I»DZ(I),AV(I*J>»E( 2*J-1 » NTESTl ) »T ( 2*U-1»NTEST1 ) 

» ALFMAN 

73 

1A1 (2*J-1 ) »I=i.NHl> 

MAN 

74 

70 

CONTINUE 

MAN 

75 


WRITE (6.500) 

MAN 

76 


k=2 

MAN 

77 


KX(l)=Nvl+b 

MAN 

78 


THIcK=l. 

MAN 

79 


00 luO I=l»Nni 

MAN 

80 


k=K+KX( 1 ) 

MAN 

81 


IF (K-bb) 90.R0.80 

MAN 

82 

60 

WRITE (6.450) 

MAN 

83 


K=Kx U> 

MAN 

84 

40 

il = I + l 

MAN 

85 


wR I Tl (6.510 1, 11 

MAN 

86 


WRlTt ( 6 . 5iJ0 ) (J, THICK. GG(J) .J=1.NV1) 

MAN 

87 

100 

CONTINUE 

MAN 

88 


WRITE (6.450) 

MAN 

89 

110 

UO 140 0=1, NLC 

MAN 

90 


CALL INPuTY 

MAN 

91 


IF (IPRlNT.LCi.O) 60 TO 120 

MAN 

92 


WRITE (6,530) J 

MAN 

93 


wRIlc. (6.540) (KZ( I) ,KX< I) ,KT( I ) ,C(I) »I=1»NLJ) 

MAN 

94 

120 

UO 130 1=1, NlO 

MAN 

95 


KRW=2*(KX(I )-l)+KT(I> 

MAN 

96 


KCL=K2( I ) 

MAN 

97 


b(KRw,O.KCL)-C(I) 

MAN 

98 

130 

CONTINUE 

MAN 

99 

140 

CONTINUE 

MAN 

100 


CALL INPuTZ 

MAN 

101 


IF ( IPRIUT.EQ.O) 60 TO 150 

MAN 

102 


WRITE (6.550) 

MAN 

103 


WRITE (6,540) (KZ(I),KX<I),KTU)»C(I>»I=1»NC> 

MAN 

104 

150 

UO 430 1 = 1 » Nri 

MAN 

105 


14=1 

MAN 

106 


15=1 

MAN 

107 


IF (1-1) 160,160,170 

MAN 

108 

160 

I1=NH+1 

MAN 

109 


12=11 

MAN 

110 


KSW1=1 

MAN 

111 


60 TO 200 

MAN 

112 

170 

11=1-1 

MAN 

113 


12=11 

MAN 

114 


IF (1-NH) 180,190,190 

MAN 

115 

180 

KSW1=2 

MAN 

116 
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GO TO 200 

MAN 

117 

190 

KSW1-3 

MAN 

118 

200 

DO 360 J=1»NV 

MAN 

119 


rH<x, 0)=TH(I,J)*ALFAl(2*0> 

MAN 

120 


I VU#J)=TV(I#J)*ALFAl(2*J-l) 

MAN 

121 


«H(I, J)=AH( I,J)*E(2*J,NTEST1> 

MAN 

122 


AV(I,0)=AV(I,J)*E(2*0-1»NTEST1) 

MAN 

123 


GX< I*0)=GG(J)/4.0 

MAN 

124 


IF (I.EQ.NH) GX(I*J)=0. 

MAN 

125 

THIS CALCULATION ASSUMES FIXED THICKNESS OF 1 

INCH, MAN 

126 


1«=2*(J-1)+1 

MAN 

127 


J2=J 

MAN 

128 


>j5=o 

MAN 

129 


IF (j-1) 210*210,220 

MAN 

130 

210 

01=NV+1 

MAN 

131 


J4=J1 

MAN 

132 


KSW2=1 

MAN 

133 


GO TO 250 

MAN 

134 

220 

Ol=u-l 

MAN 

135 


04=01 

MAN 

136 


IF (o-NV) 23u ,240 » 240 

MAN 

137 

230 

KSW 2=2 

MAN 

138 


GO TO 250 

MAN 

139 

240 

i\S*2=3 

MAN 

140 

250 

2X1 =b 2(11)/ On(Jl) 

MAN 

141 


xZl=1.0/ZXl 

MAN 

142 


2X2=02 ( 12 ) /0 a ( 02 ) 

MAN 

143 


AZ2=1. 0/2X2 

MAN 

144 


2X4=UZ(I4)/Oa(04) 

MAN 

145 


XZ4=1.0/ZX4 

MAN 

146 


2X5=0Z( I5)/Ua ( J5) 

MAN 

147 


aZ5=1 .0/2X5 

MAN 

148 


H1=GX ( 1 1 » 01 ) 

MAN 

149 


H2=GX(I 2.02) 

MAN 

150 


H4=Ga(I4,04) 

MAN 

151 


H5=6a (15*05) 

MAN 

152 


A( IK»IR)=H1*2X1+H2*ZA2+H4*ZX4+H5*ZX5+AV(I2» 

02 ) /PZ ( I?) +AV( 15,05) /DZMAN 

153 


1(15) 

MAN 

154 


A( IR, IR+1)=H1-H2-H4+H5 

MAN 

155 


A(IR+1,IR)=A(IR,IR+1> 

MAN 

156 


A( IR + 1» Irt+l)=Hl*XZlTH2*X22+H4*XZ4+H5*XZ5+AH( I4» J4 )/Dx(04)+Ah( lb , J5MAN 

157 


1 ) /Dx 105) 

MAN 

158 


GO TO ( 260 , 2b0 » 270 ) » KSW2 

MAN 

159 

260 

A( IR, IR+2)=-h2*ZX2-H5*ZX5 

MAN 

160 


A( lR,IR+3)=-H2+H5 

MAN 

161 


A(IR+1,IR+2)=H2-H5 

MAN 

162 


A(Ir+1,IR+3)=H2*XZ2+H5*XZ5-AH(I5»05)/DX(05) 

MAN 

163 

270 

GO TO (280,230,320) , KSW1 

MAN 

164 

280 

GO TO (300,290,290), KSW2 

MAN 

165 

290 

R( IH, IR-2)=-H4#ZX4 

MAN 

166 


R ( IR , IR-1 ) =H<+ 

MAN 

167 


R(IH+1,IR-2)=H4 

MAN 

168 


R( IR+1, IR-1)=-H4*XZ4 

MAN 

169 


GO TO ( 300 , 3u0 , 310 ) , KSW2 

MAN 

170 

300 

R(IR,IR+2)=-i«5*ZX5 

MAN 

171 


K( IR, IR+3)=-H5 

MAN 

172 


R(lH+l,lR+2)=-H5 

MAN 

173 


K( IR+1, lR+3)=-H5*XZ5 

MAN 

174 
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310 

K< IR, IR)=H4*2X4+H5*ZX5-AV< I5» J5)/DZ< 15) 


MAN 

175 


R( IR» IR + D=H4-H5 



MAN 

176 


R( IK+1# IR)=-h4+H5 



MAN 

177 


R( IR+1# IR+1)=-H4*XZ4-H5*XZ5 



MAN 

178 

320 

00 70 ( 330*330*340) * KSW2 



MAN 

179 

330 

A(lR+2#lK)=A(lR,IR+2) 



MAN 

180 


a<IR+2»I«+1)=A(IR+1,IR+2) 



MAN 

181 


A(IR+3»IR)=A(Ir,IR+3) 



MAN 

182 


A< 1R+3* IK+1)=A( IR+l*IR+3) 



MAN 

103 

340 

0=AV(I2* J2)*TV(I2» J2)-AV(I5»J5)*TVCI5» J5) 


MAN 

184 


X— Ah ( 14 * J4 ) * TH( I4» J4 ) —AH ( 1 5 » J5 ) *TH ( 1 5 » J5) 


MAN 

185 


00 350 K=1,NLC 



MAN 

186 


U( lR*K* I )=b( IR»K. I )*Q 



MAN 

187 


b(lR+l,K,I)=b<lR+l*K»I)+X 



MAN 

188 

350 

continue 



MAN 

189 

360 

CONTINUE 



MAN 

190 


GO to ( 370 * 370 » 390 ) * KSWi 



MAN 

191 

370 

WRITE (UTB) R 



MAN 

192 


DO 360 K=1 r MS 



MAN 

193 


uO 360 J— 1 * Mb 



MAN 

194 


R(K, j)=0.0 



MAN 

195 

380 

continue 



MAN 

196 

390 

DO 410 Jrl*NC 



MAN 

197 


IF (KZ(J)-l) 410 f 400 » 410 



MAN 

198 

400 

KRw=2*(Ka( J)-1)+KT( J) 



MAN 

199 


A(KR*,KRw>=MKRW*KRW)+C< J> 



MAN 

200 

410 

CONTINUE 



MAN 

201 


WRITE (JTA) A 



MAN 

202 


DO 420 K=l#Mb 



MAN 

203 


DO 420 J=1» V 'S 



MAN 

204 

420 

A ( K * J ) -0 • 0 



MAN 

205 

430 

CONTINUE 



MAN 

206 


REWIND JTA 



MAN 

207 


rewind jto 



MAN 

208 


RETURN 



MAN 

209 

C 




MAN 

210 

*40 

FORMAT UH1.42Xr35HPR0PERTlES OF 

HORIZONTAL STIFFENERS//) 

MAN 

211 

*50 

FORMAT (1H1) 



MAN 

212 

*60 

FORMAT (//47x,24HH0RIZ0NTAL STIFFENER NO. I3//21X* 7HSEGMENT* 4X» 

toHLEMAN 

213 

1NGTh*10X* 4 HARE A » 10X » 7HM0DULUS » 6X » 

11HTEMPERATURE»3X,14HTHERMal 

COEFMAN 

214 

2F . // ) 



MAN 

215 

470 

FORMAT (I25*5E15.5) 



MAN 

216 

480 

FORMAT ( 1H1.43X.33HPR0PERTIES OF 

VERTICAL 

STIFFENERS//) 

MAN 

217 

*90 

FORMAT ( //4«x * 2 2H VERTICAL STIFFENER NO , I3//21X, 7HSEGMENT * 4X , 6HLEN6MAN 

218 

lTH»loX»4nARtLA# 10X»7HM00ULUS.6X, HHTEMPERATURE»3X»14HTHERMAL COEFF.MAN 

219 

2//) 



MAN 

220 

O00 

FORMAT (1H1,*9X#20HPR0PERTIES OF 

PANELS//) 


man 

221 

510 

FORmmT ( //35a » 40HPANELS BETWEEN HORIZONTAL 

STIFFENERS N0.I3.4H 

ANDMAN 

222 

1I3//42X,5HPA;:El»4X»9HTH1CKNESS»4X 

» 1 3HSHEAR 

MODULUS//) 

MAN 

223 

520 

FORMAT (42X* I3,2El5.b) 



MAN 

224 


530 FORMAT (1H0.45X.24HLOADINO CONDITION NUMQERI3//46X , 1hZ»6x» 1hX»5X.4MAN 2 25 
1HTYPE*6X,4HLvjAD//> MAN 226 

540 FORMAT <40X#3l7»Ei5.5) MAN 227 

950 FORMAT <1H1,54x*11HCONSTRAINTS//46X»1HZ»6X*1HX,5X»4HTYPE»3X,10HCONMAN 228 
1STRA1NT//) MAN 229 

END MAN 230- 
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SUBROUTINE MATRX4 MT4 1 

DIMENSION ALFAl(20> *C(50) *DX(21) »0Z(41) ,66(1U) »KT(50) *KX(50) ,«Z(50MT4 2 

1) ,NL(5) ,V<50) MT4 3 

DIMENSION AU0,40) »AH(4l»21) rAI (40,20) ,AV( 41,21 ) *FH<40» 10 > ,FPU0»1MT4 4 

1U ) ,FS (40 ,10) » FSM ( 40 , 10 ) ,FV(40, 10 ) ,GX (41,21 ) ,R(40,40) ,TH(4l,2l) ,TV(MT4 5 


241,21) 






MT4 

6 

DIMENSION 

BUO.l, 40 ) 





MT4 

7 

COMMON/BLOCKA/A , AH , AI 

, ALFAl , 

AV , B 

, c 

9 

MT4 

8 

1 DELX , 

UELZ , DX , OZ 

, FH , 

FP , FS 

, FSM 

9 

MT4 

9 

2 FV , 

GG , GX , HI 

. H2 , 

H4 , h5 

, 1 

9 

MT4 

10 

3 11 , 

12 ,14 , 15 

, IR , 

J , Jl 

, J2 

9 

MT4 

11 

4 J4 , 

J5 , JTA , JTB 

, JTC , 

K , KCL 

» Kl 

9 

MT4 

12 

5 KRW , 

KSvi 1 , KSW2 , KT 

, KX , 

KZ , L 

, M 

9 

MT4 

13 

6 MS , 

NCASE , NH1 , NL 

, nlj , 

NV1 , PARTA 

. PARTB 

9 

MT4 

14 

7 PX , 

Q , R , SF 

, TH , 

TV , V 

, X 

9 

MT4 

15 

8 XZ1 , 

XZ2 , XZ4 , XZ5 

, zxl , 

ZX2 » Z*4 

, ZX5 


MT4 

16 

9, NTEST1 






MT4 

17 

COMMON/BlOCKd/ iprint, nc, nh. 

NLC. NV, PZ 

, VB 



MT4 

18 

COMMON 

AL , ALPHA (99 

) , alt ( 99 ) 

»ame 

, AMI 


MT4 

19 

1 , AOF A 

,AOFE ,arod 

, AS 

, AX (9.11,9) 

, AY (9,11, 

9) MT4 

20 

2, BATA 

, BE , BETA ( 99 ) 

,BF 

, BFL 

,BL 


MT4 

21 

3, DELTA 

,DlAM ,DIST (9) 

,DST 

, E ( 20 , 99) 

»EALL 


MT4 

22 

4 , EAT 120,93 

) , EDOT (20,99) ,EMIS(9) 

,FACC 

, FCU (20*99) 

,FCY(20,99)MT4 

23 

5,FNET(20) 

,FSU(20,99) , FT ( 20 ) 

,FTU (20,99) , FVE 

,F07 


MT4 

24 

6,G(20,99) 

, HH ,hins 

,HINSD(99) , ICONF 

, ILINKO 


MT4 

25 

7, IQINP 

, 1 TuRB , IWALT 

.MAT (9,9) 

, MPT (9,9) 

,MP(g, 18) 


MT4 

26 

8 , NCOLM 

.NCR ,NCRC 

,NF 

, NI ( 18) 

.NINS 


MT4 

27 

9 , NMaT 

,NMin ,nprt 

,NPSG 

, NR { 18 ) 

.NPSG 


MT4 

28 

l,NSE6 

, NTRAJ ,N33 

,PE 

, phi 

.PI 


MT4 

29 

$ , PlNP ( 99 ) 

, DCONL ( 9 ) , QCONT ( 9 ) 

,0INP(99) 

, QNET ( 9 ) 

, RHO ( 9 ) 


MT4 

30 

$ , RHOI 

,*YE ,PYI 

»SL 

,SLS 

,STAAT 


MT4 

31 

S , ST I 

.STOOP ,T (20,99) 

, T ALLW (9) 

, T AMP (9»9) 

,TAU 


MT4 

32 

S , TC 1 

, TEMP (9,9) .THETA 

» T I 

» TIME ( 9 q ) 

.TINS 


MT4 

33 

$ , TlNSD ( 99 ) 

,UF ,VFACT(9, IB) ,VI 

,VINF(99) 

.wrote 


MT4 

34 

‘S.XEMlS 

, xSTG ( 99 ) , XX ( 20 ) 

,Y( 9) 

,ZZ(20) 



MT4 

35 

NDIM=40 






MT4 

36 

SF=0.0 






MT4 

37 

READ ( JT A ) 

A 





MT4 

38 

WRITE (JTC 

) H 





MT4 

39 

DO 70 K=2»NH 





MT4 

40 

DO 20 I=l» 

MS 





MT4 

41 

DO 10 J=l» 

MS 





MT4 

42 

AI ( I , J)=0. 

0 





MT4 

43 

AI(I,I)=1. 

0 





MT4 

44 

10 CONTINUE 






MT4 

45 

20 CONTINUE 






MT4 

46 

CALL SIMEQ (NOIM ,MS,MS, A, AI , SF , V 

, M ) 




MT4 

47 

60 TO (30, 

160.170), M 





MT4 

48 

30 READ (JTB) 

R 





MT4 

49 

DO 40 1=1 » MS 





MT4 

50 

DO 40 J=1,MS 





MT4 

51 

AI(I,J)=0. 

0 





MT4 

52 

00 40 IJ=1 

,MS 





MT4 

53 

AI(I,J)=AI (I,J)-R(IJ,I)*A(IJ,J) 





MT4 

54 

40 CONTINUE 






MT4 

55 

READ (JTA) 

A 





MT4 

56 

DO 50 1=1, 

MS 





MT4 

57 

DO 50 U=l* 

MS 





MT4 

58 
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DO 50 IJ=1.MS 

MT4 

59 


A( I#J)=A(I»J>+AI<I»IJ>*RUJ»J> 

MT4 

60 

50 

CONTINUE 

MT4 

61 


WRITE (JTC) A 

MT4 

62 


UO bU I=1*MS 

MT4 

63 


UO feu J=1 #NLC 

MT4 

64 


UO bO IJ=1»MS 

MT4 

65 


D( 1#J,K)=R(I# J#K)+AI CI»IJ)*B(IJ,J,K-1) 

MT4 

66 

60 

continue 

MT4 

67 

70 

CONTINUE 

MT4 

68 


BACKSPACE JTC 

MT4 

69 


HEAD ( JTC ) A 

MT4 

70 


KEWIND JTA 

MT4 

71 


UO ao 1 = 1 .MS 

MT4 

72 


UO ao J= 1 » NLC 

MT4 

73 


Ml < I t J)=b<l> J.NH) 

MT4 

74 

50 

continue 

MT4 

75 


CALL SIM£Q(NDlM,MS.NLC.A»AI ,SF»V»M) 

MT4 

76 


00 TO (9u#16o»17u) » M 

MT4 

77 

90 

00 1U0 I = l»M.s 

MT4 

78 


UO 100 J=l» m-C 

MT4 

79 


B< I #o»NH)=A( I . J) 

MT4 

80 

100 

continue 

MT4 

81 


00 150 K 1—2 # nH 

MT4 

82 


K=NH+1-KI 

MT4 

83 


00 110 1=1# MS 

MT4 

84 


00 no J=1»NLC 

MT4 

85 


UO 110 I j=i » MS 

MT4 

86 


fc ( I # J #K ) =B ( I » J# K ) — R ( I # I J ) *A ( I J # J ) 

MT4 

87 

110 

cONT inue 

MT4 

88 


BACKSPACE JTo 

MT4 

89 


bACKSPACE JTo 

MT4 

90 


REAU (JTB) k 

MT4 

91 


BACKSPACt JTC 

MT4 

92 


BACKSPACE JTC 

MT4 

93 


READ (JTC) A 

MT4 

94 


□0 120 1=1 »MS 

MT4 

95 


UO 120 J=1»NLC 

MT4 

96 


AI ( I * J)=6( I » J#K) 

MT4 

97 

120 

continue 

MT4 

98 


CALL SIMLG(NJIM,MS»NLC»A»AI,SF»V»M) 

MT4 

99 


GO TO ( 1 JO » 160 » 170 ) ♦ M 

MT4 

100 

130 

DO 140 1=1. MS 

MT4 

101 


DO 140 J=1.NLC 

MT4 

102 


B( I » J # K ) =A ( I » J ) 

MT4 

103 

140 

CONTINUE 

MT4 

104 

150 

continue 

MT4 

105 


REWIND JTB 

MT4 

106 


REWIND JTC 

MT4 

107 


CALL SECOND (CHRON) 

MT4 

108 


WRITE (6.180) CHRON 

MT4 

109 


CALL STRESS 

MT4 

110 


RETURN 

MT4 

111 

160 

WRITE (6.190) 

MT4 

112 


STOP 

MT4 

113 

170 

WRITE (6.200) 

MT4 

114 


STOP 

MT4 

115 

C 


MT4 

116 
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180 FORMAT (1H1»* NO* ENDING OVERLAY ( 2» 0 > ' ALIAS PROGRAM MATRX4, JUST MT4 117 
1PRIOR TO ENTERING SUBROUTINE STRESS. CLOCK READS **F7.3** SEC0NDSMT4 118 


2.*/) MT4 119 

190 FORMAT (///17H OVERFLOW OCCURED) MT4 120 

200 FORMAT <///19H MATRIX IS SINGULAR) MT4 121 

END MT4 122- 
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SUBROUTINE MAX( A# IMAx» JMAX» AMAX» I FLAG) MAX 1 

C IFLAO = 1 FOk SION AS IS. IFLA6 = 2 FOR ABSOLUTE VALUE OF A(I»J).MAX 2 

DIMENSION A ( 40 » 8 ) M AX 3 

AMAX=0. MAX 9 

DO 30 l-lt IMAX t MAX 5 

DO 30 j=l » JMaX ' MAX 6 

00 TO <10»20) IFLAG MAX 7 

10 IF (A(I , J) .GT.AMAX) AMAX=A(I*J> MAX 8 

00 TO 30 MAX 9 

20 IF (ABS(AUfU) ) .OT.AMAX) AMAXsABS ( A C I » D) ) MAX 10 

30 CONTINUE MAX 11 

RETURN MAX 12 

END ' ' " MAX" 13 
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SUBROUTINE MIN( A » IMAX » JMAX» AMIN , I FLAG ) MIN 

C IFLAG = 1 FOk SIGN AS IS. IFLAG = 2 FOR ABSOLUTE V*LUE OF A<I»J).MIN 

DIMENSION A(40,8) MIN 

amin=o. MIN 

DO 30 1=1, IMAX MIN 

DO 30 J=1»JMAX MIN 

GO TO (10,20) IFLAG MIN 

10 IF (A(I,J) .LT.AMIN) AMIN=A(I,J) MIN 

GO TO 30 MIN 

20 IF (ABS(A( I»J) ) .LT.AMIN) AMINrABS < A ( I , J) ) MIN 

30 CONTINUE min 

RETURN MIN 

END MIN 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 - 
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SUBROUTINE 

simegu IDIM.NN.MM.A.B.DET.IND.NOGO) 

SMQ 

1 

c 



SMQ 

2 

c 



SMQ 

3 

CSIMEQ 

SELVES THE EQUATION AX=B WHERE A,X, AND 8 ARE MATRICES 

SMQ 

4 

C 


WHERE 

SMQ 

5 

C 

IDIM 

IS A FIXED POINT CONSTANT OR VARIABLE WHOSE VALUE 

SMQ 

6 

C 


MOST BE EQUAL TO THE MAXIMUM VALUE THAT M A y EVER BE 

SMQ 

7 

c 


ASSUMED BY THE SUBSCRIPT I OF THE MATRIX A<I»J>. THIS 

SMQ 

B 

c 


VmLuE IS IDENTICAL WITH THAT USED IN THE DIMENSION 

SMQ 

9 

c 


STATEMENTS WHEN SETTING THE UPPER LIMIT OF THE 

SMQ 

10 

c 


SUBSCRIPT. 

SMQ 

11 

c 

NN 

iS A FIXED POINT VARIABLE OR CONSTANT WHOSE VALUE 

SMQ 

12 

c 


MUST EQUAL THE NUMBER OF ROWS IN THE MATRIX A. 

SMQ 

13 

c 

MM 

IS A FIXED POINT VARIABLE OR CONSTANT WHOSE VALUE 

SMQ 

14 

c 


MUST EQUAL THE NUMBER OF COLUMNS IN THE MATRIX B. 

SMQ 

15 

c 

A 

IS THE SOURCE PROGRAM FLOATING POINT VARIABLE USED TO 

SMQ 

16 

c 


Dt. SIGN ATE THE ELEMENTS OF MATRIX A. 

SMQ 

17 

c 

b 

IS THE SOURCE PROGRAM FLOATING POINT VARIABLE USED TO 

SMQ 

18 

c 


DESIGNATE THE ELEMENTS OF MATRIX B. 

SMQ 

19 

c 

DtT 

MuST BE A FLOATING POINT VARIABLE WHOSE VaLUF SERVES 

SMQ 

20 

c 


A o A SCALE FACTOR BY WHICH SIMEQ MULTIPLIES THE VALUE 

SMQ 

21 

c 


OF THE DETERMINANT OF A. AFTER THE EXECUTION OF THIS 

SMQ 

22 

c 


subroutine, det contains the scaled version of The 

SMQ 

23 

c 


DETERMINANT. 

SMQ 

24 

c 

I NO 

MUST BE A FIXED OR FLOATING POINT VARIABLE DESIGNATING 

SMQ 

25 

c 


< ONE-DIMENSIONAL ERASABLE ARRAY OF LENGTH AT LEAST 

SMQ 

26 

c 


to<UAL TO THE NUMBER OF ROWS IN MATRIX A. IT IS IN THIS 

SMQ 

27 

c 


ArvEA SIMEQ KEEPS A RECORD OF THE COLUMN PERMUTATIONS. 

SMQ 

20 

c 

NOGO 

lu A FIXED POINT VARIABLE WHICH WILL BE ASSIGNED THE " 

SMQ 

29 

c 


FIXED POINT CONSTANTS. 

SMQ 

30 

c 


1 IF THE SOLUTION *AS SUCCESSFUL. 

SMQ 

31 

c 


3 IF THE MATRIX A WAS SINGULAR. 

SMQ 

32 

c 


DIMENSIONS 

SMQ 

33 

c 


SMQ 

34 

c 

A 

I U I M X IDIM IF MM IS LESS THAN OR EQUAL TO IDlM 

SMQ 

35 

c 


I..IM a MM IF MM IS GREATER THAN IDIM 

SMQ 

36 

c 

b 

UIM X MM 

SMQ 

37 

c 

IND 

I^IM 

SMQ 

38 

c 



SMQ 

39 

c 


NOTE 

SMQ 

40 

c 


FOR MATRICES THE ROw DIMENSION MUST BE THE SAME AS 

SMQ 

41 

c 


THAT GIVEN ABOVE. THE COLUMN DIMENSION MUST AT LEAST 

SMQ 

42 

c 


BE THAT GIVEN ABOVE. 

SMQ 

43 

c 


FOR THE VECTOR THE DIMENSION MUST AT LEAST BE THAT 

SMQ 

44 

c 


GIVEN ABOVE 

SMQ 

45 

c 



SMQ 

46 

c 


EXECUTION OF THIS ROUTINE DESTROYS THE ORIGINAL A AND 

SMQ 

47 

c 


b matrices 

SMQ 

48 

c 



SMQ 

49 

c 


AFTER A SUCCESSFUL EXIT FROM THIS SUBROUTINE* THE 

SMQ 

50 

c 


ANSWERS OK THE X MATRIX REPLACE THE A MATRIX. 

SMQ 

51 

c 


This REPLACEMENT is done according TO THE SCHEME. 

SMQ 

52 

c 



SMQ 

53 

c 


AU'U) is REPLACED BY X(I.J) . 

SMQ 

54 

c 



SMQ 

55 

c 



SMQ 

56 


DIMENSION 

A< iDlM.l) .B< IDIM.l) »IND<1) 

SMQ 

57 

c 

SET INITIAL CONSTANTS 

SMQ 

58 
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NrNN 



SMQ 

59 



M=MM 



SMQ 

60 



NOGOPl 



SMQ 

61 

c 


SPECIAL CONSIDERATION WHEN THE 

ORDER 

OF MATRIX A IS 1. 

SMQ 

62 



IF iN.NE.l) GO TO 20 



SMQ 

63 



if (a.eo.o.) go to iao 



SMQ 

64 



holdsa 



SMQ 

65 



00 10 I = 1»M 



SMQ 

66 


10 

A ( 1 » I ) =B ( 1 » I > /HOLD 



SMQ 

67 



det=det*hold 



SMQ 

68 



return 



SMQ 

,69 


20 

NMlsN-1 



SMQ 

70 



NPlSJM+1 



SMQ 

71 

c 


initialize determinant 



SMQ 

72 



uetmsdet 



SMQ 

73 

c 


initialize column indicators 



SMQ 

74 



DO 30 I - 1 * N 



SMQ 

75 


30 

INO(I)=I 



SMQ 

76 

c 


begin triangularization to get 

UPPER 

triangle 

SMQ 

77 



DO mo K=1>NM1 


= 

SMQ 

78 



KP1=K+1 



SMQ 

79 



KR=K 



SMQ 

80 



KC=K 



SMQ 

81 

c 


SEARCH FOR PIVOTAL ELEMENT 



SMQ 

82 



bIGAsABS ( A ( K » K ) ) 



SMQ 

83 



DO 50 I=K»N 



SMQ 

84 



DO 40 J— K t N 



SMQ 

85 



IF i&lGA.GE.ABS(A(I,J) ) ) GO TO 40 



SMQ 

86 



BIGASABS I A ( I » J) ) 



SMQ 

87 



KR=I 



SMQ 

88 



KC=J 



SMQ 

89 


40 

CONTINUE 



SMQ 

90 


50 

continue 



SMQ 

91 

c 


TEST FOR SINGULAR MATRIX 



SMQ 

92 



IF (0IGA.EQ.O.) GO TO 180 



SMQ 

93 

c 


update determinant 



SMQ 

94 



OETM=DETM*A(KR,KC) 



SMQ 

95 

c 


interchange ROWS 



SMQ 

96 



IF (KR.EQ.K) GO TO 80 



SMQ 

97 



DO 60 I=K*N 



SMQ 

98 



HOLDSA (K, I) 



SMQ 

99 



A(K,I)=A(KR,I) 



SMQ 

100 


60 

A(KR # I)=HOLD 



SMQ 

101 

c 


INTERCHANGE ELEMENTS OF RIGHT HAND SIDES 

SMQ 

102 



DO 70 L=1»M 



SMQ 

103 



HOLD=B<K*U 



SMQ 

104 



B(K,L)=B(KR,L) 



SMQ 

105 


70 

B(KR # L)=HOLD 



SMQ 

106 

c 


CHANGE SIGN OF DETERMINANT DUE 

TO ROW 

INTERCHANGE 

SMQ 

107 



OETMS-DETM 



SMQ 

1 08 

c 


INTERCHANGE COLUMNS 



SMQ 

109 


80 

IF (KC.EO.K) GO TO 100 



SMQ 

110 



DO 90 J=1»N 



SMQ 

111 



H0LD=A(JfK) 



SMQ 

112 



A(U,K)=A(J,KC) 



SMQ 

113 


90 

A( J»KC)=HOLD 



SMQ 

114 

c 


INTERCHANGE COLUMN INDICATORS 



SMQ 

115 



I=IND(K) 



SMQ 

116 
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INO<K)=IND<KC) 

SMQ 

117 



IND(KC>=1 

SMQ 

118 

c 


CHANGE SIGN OF DETERMINANT DUE TO COLUMN INTERCHANGE 

SMQ 

119 



UETMx-DETM 

SMQ 

120 

c 


DIVIDE REDUCED EQUATION-ON, BY LEADING ELEMENT 

SMQ 

121 


100 

DO 110 I=KP1 t N 

SMQ 

122 


110 

A(K»1)=A(K»I)/A(K»K) 

SMQ 

123 



DO 120 L=1»M 

SMQ 

124 


120 

b(K»L)=B(K,L)/A(K,K) 

SMQ 

125 

c 


REDUCE MATRIX AND RIGHT HAND SIDES 

SMQ 

126 



DO 140 I=KP1,N 

SMQ 

127 



uO 130 J=KP1,N 

SMQ 

128 


130 

A(I#J)=A(1#J)-A(I#K)*A(K»J) 

SMQ 

129 



DO 140 L=1#M 

SMQ 

130 


140 

b( I#L)=B(I»L)-A(I»K)*B(K#L) 

SMQ 

131 

c 


FINAL TEST FOR SINGULAR MATRIX 

SMQ 

132 



IF (A(NrN) . LQ • 0 . ) GO TO 180 

SMQ 

133 

c 


COMPUTE FINAL DETERMINANT 

SMQ 

134 



DET=UETM*A (N,N) 

SMQ 

135 

c 


BACK SUBSllTUE TO OBTAIN SOLUTION VECTORS 

SMQ 

136 



DO lbO L=1 f M 

SMQ 

137 



b(N,L)=R(N.L)/A(N,N) 

SMQ 

138 



DO lt>0 1 = 1 • ) il 

SMQ 

139 



HOLL=0. 

SMQ 

140 



J=N-I 

SMQ 

141 



DO ISC KC=1*1 

SMQ 

142 



K=NP1— KC 

SMQ 

143 


150 

HOLD=HOLD+a ( o r K ) *8 ( K » L ) 

SMO 

144 


160 

b(J»L)=B(JfL) “HOLD 

SMQ 

145 

c 


REARRANGE SOLUTION VECTORS TO ORIGINAL ORDER 

SMQ 

146 



DO 170 1=1 *N 

SMQ 

147 



D=IND( I ) 

SMQ 

148 



DO 170 L = 1»M 

SMQ 

149 


170 

At J»L)=P< I .L) 

SMQ 

150 



RETURN 

SMQ 

151 

c 


SINGULAR MATRIX - REDUNDANT SET OF EQUATIONS 

SMQ 

152 


180 

N0G0=3 

SMQ 

153 



DET=U. 

SMQ 

154 



RETURN 

SMQ 

155 



cND 

SMQ 

156- 
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SUBROUT INF STRES2 ST2 1 

DIMENSION ALFAl ( 20 ) »C(50) .DX ( 21 ) . DZ ( 41 ) , 66 ( 10 ) .KT ( 50 ) , KX ( 50 ) »KZ(50ST2 2 

I) *NL(5> * V<50) ST2 3 


DIMENSION A(40.4U) ,AH( 41.21 > »AI (40.20) .AV( 41.21 ) .FH< 40* 

10> *FP(40 

♦ 1ST2 

4 

10) *FS (40* 10 ) *FSM( 40# 10) *FV( 40*10 ) *GX( 41*21 ) »R (40*40) »TH(41 *21) »TV(ST2 

5 

241 * 21 ) 




ST2 

6 

DIMENSION ti(40*l*40> 




ST2 

7 

COMMON/BlOCKA/A , AH 

* AI * ALFAl * 

AV » B 

. c 

. ST2 

8 

1 DELX * DELZ , DX 

* OZ * FH * 

FP , FS 

* FSM 

. ST 2 

9 

2 FV * GG * GX 

* HI » H2 » 

H4 * H5 

* I 

. ST 2 

10 

3 11 * 12 * 14 

* 15 * IR * 

J . Jl 

» J 2 

. ST2 

11 

4 J4 * J5 * JT A 

» UTB , JTC * 

K * KCL 

# Kl 

» ST 2 

12 

5 KRw * KSwl * KSW2 

* KT * KX » 

<Z * L 

* M 

. ST2 

13 

6 MS * NCASE , NH1 

. NL » NLJ * 

NV1 * PARTA 

. partb 

. ST2 

14 

7 PX * Q * R 

* SF , TH * 

TV » V 

* X 

. ST2 

15 

8 X21 * XZ2 * XZ4 

♦ XZ5 , ZXl . 

ZX2 » ZX4 

* ZX5 

ST2 

16 

9* NTtSTl 




ST2 

17 

COMMON/BLOCKo/ iprint* 

NC. NH. NLC. NV» PZ 

* VB 


ST2 

18 

COMMON AL 

* ALPHA ( 99 ) » ALT ( 99) 

» AME 

.AMI 

ST2 

19 

l.AOFA *mOFE 

, AROD * AS 

» AX ( 9* 1 1 *9) 

* AV( 9* 11 » 

9)ST2 

20 

2 * BATA * BE 

.BETA ( 99) *BF 

*BFL 

» HL 

ST2 

21 

3. DELTA .ulAM 

»DIST < 9) *DST 

»E(20*99) 

*eall 

ST2 

22 

4* FAT (20. 99) *EDOT(20*99) *EMIS(9) .FACC 

»FCU(20»99) 

*FCY(20.99)ST2 

23 

5.FNET (20 ) *FSU(20.99) 

»FT( 20 > *FTU(20*99) »FvE 

* F07 

ST2 

24 

6.0(20*99) *hH 

.HINS *HINSD(99) * ICONF 

» ILINKO 

ST2 

25 

7 * IQINP * i TURB 

,IWALT .MAT (9*9) 

»MPT(9,9) 

» MR ( 9 * 18 ) 

ST2 

26 

6.NC0LM .NCR 

,NCRC *NF 

* NI ( 18 ) 

tNINS 

ST2 

27 

9 * NMA j *NMIN 

* NPRT »NPSG 

* NR (18) 

*NRSg 

ST 2 

28 

t.NSEG * NTRA J 

*N33 ,PE 

.PHI 

.PI 

ST 2 

29 

5 * PlNP ( 99 ) * QCONL ( 9 ) 

*QC0NT ( 9 ) »0INP(99) 

*0NET(9) 

• RHO ( 9 ) 

ST2 

30 

S.RHOl .kYE 

*RYI ,SL 

*SLS 

.staat 

ST2 

31 

* , STI .STOOP 

,T (20*99) rTALLW (9 ) 

. T AMP ( 9 » 9 ) 

*TAU 

ST 2 

32 

S*TCl *TEMP(9.9) 

, THETA ,TI 

* TIME ( 99 ) 

» TINS 

ST 2 

33 

% * T INSU ( 99 ) » 0 F 

* VFACT (9*10) »VI 

*VINF(99) 

.wrote 

ST 2 

34 

S.XEM1S * XSTG ( 99) 

* XX ( 20 ) . Y( 9) 

* ZZ ( 20 ) 


ST2 

35 

KX ( 1 ) sNV +8 




ST2 

36 

DO 230 Lsl.NLC 




ST2 

37 

K-l 




ST2 

38 

UO 40 I= 1 *NH 




ST2 

39 

11=1+1 




ST2 

40 

00 20 J=1*NV1 




ST2 

41 

1R=2*(J-1)+1 




ST2 

42 

DELX=B(lH+3.L.I)-8(IR+l*L.l) 



ST2 

43 

FH( I , J) = ( DELX/DX ( J )-TH( I » J) ) *E ( 2*U»NTEST1 ) 



ST2 

44 

IF (I-NH) 10.20.20 




ST 2 

45 

10 PARTA=B(IR+1,L,I+1)+B(IR+3»L*I+1)-B(IR+1*L 

»I)-B(IP+3.L» 

I) 

ST 2 

46 

PART 6 =B( lR+2.L.I+l)+a(IR+2*L*I)-B(IR*L*I+i)-B(IR»L*I) 


ST 2 

47 

FS(I.J)= 6 X(I*U)*(PARTA/DZ(I)+PARTB/DX( J))* 2 . 


ST 2 

48 

DELZ=B(IR*L. I+1)-B(IR» 

L* I ) 



ST2 

49 

FV<I.J)=(DELZ/UZ(I)-TV(I»J) ) *E< 2 *U- 1 .NTEST 1 ) 


ST2 

50 

20 CONTINUE 




ST2 

51 

IR=2*NV1+1 




ST 2 

52 

IF (I-NH) 30*50*50 




ST2 

53 

30 DELZ=B(IR»L»I+1)-0(IR. 

L» I > 



ST2 

54 

FV(I,NV+ 1 )=(uELZ/DZ(I) 

-TV(I.NV) ) *E( 2*NV-1 * NTEST1 ) 


ST 2 

55 

WE NOW GENERATE An ARTIFICIAL VALUE AND PRINT 

IT OUT IN THE COLUMN 

ST 2 

56 

PRECEDING THE TRUE 

final value. 



ST2 

57 

40 FV< 1 ,NV)=FV( I *NV+1)/E(2*NV-1»NTEST1 )*F (2*NVl-l*NTESTl) 


ST2 

58 
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50 FSMU»l)=FH(l*2)/2. 

DO 60 I=2»NH 

60 FSM(X,1)=SQRT(FH(I.2)**2+FS(I-1»2)**2) 

00 70 J=2»6 

70 FSM(i,J) = (FV(l»J-H)-FH(l. J) )/2, 

00 80 I=2»NH 
00 80 J=2»6 

80 FSM(I,J>=SQRT<(FV(I-l»J+l)-FH(I,J))**2/4.+FS<I-l.J>**2) 
FP<1,1>=FH(1.2) 

00 90 1=2 * NH 

FP( X . 1 ) =FH( I » 2) /2»+FSM ( I » 1 ) 

XF (FH< 1.2) eLT .0# ) FP ( I » 1 ) =FH( I , 2 ) /2.-FSM ( I , 1 ) 

90 CONTINUE 

00 2.00 J=2»Nvl 
FP(1»J)=FV(1» J+l) 

IF ( aBS ( FH ( 1 » J ) ) , GT , ABS( FV ( 1 » J+l ) ) ) FP ( 1 , J)=FH( 1 , J) 

100 CONTINUE 

00 130 I=2»NH 
00 130 J=2»N</1 

FPSs, 5+ { FV ( I » J+2) +FH ( I . J+2 ) ) +FSM ( I » J) 

FPD=FPS-2.«‘FSM(Ir J) 

IF (ABS(FPS)-ABS(FPD) ) 120 .110.110 
110 FPU»J) = <FV(1-1»J+1)+FH(I*J) )/2.+FSM(I*J) 

GO TO 130 

120 FP(I»J)=(FV(1-1»J+1)+FH(I»J) )/2,-FSM( I»J) 

130 CONTINUE 

k/RITE (6»240) 

WRITE ( 6 » 250 ) 

WRITE (6.260) 

WRITt (6.270) 

WRITE (6.280) 

WRITE (6.290) 

DO 140 1=1. NH1 

WRITE (6.300) I . ( FV ( I » J) » J=1 » 8) 

140 CONTINUE 

WRITE (6.310) 

WRITE (6.320) 

WRITE (6.330) 

WRITE (6.340) 

WRITE (6.350) 

00 150 1=1. NH 

WRITE (6.360) I . ( FH ( I , J) » J=1 . 6 ) 

150 CONTINUE 

WRITE (6.370) 

WRITE (6.380) 

WRITE (6.390) 

WRITE (6.340) 

WRITE (6.350) 

00 160 IsltNHl 

WRITE (6.360) I»(FS(I»U> »J=1»6) 

160 CONTINUE 

WRITE (6.400) 

WRITE (6.410) 

WRITE (6.420) 

WRITE (6.430) 

DO 170 Isl.NH 

WRITE (6.360) I » ( FSM ( I . J ) . J=1 »NVl ) 

170 CONTINUE 


ST2 59 
ST2 60 
ST2 61 
ST2 62 
ST2 63 
ST2 64 
ST2 65 
ST2 66 
ST2 67 
ST2 68 
ST2 69 
ST2 70 
ST2 71 
ST2 72 
ST2 73 
ST2 74 
ST2 75 
ST2 76 
ST2 77 
ST2 78 
ST2 79 
ST2 80 
ST2 81 
ST2 82 
ST2 83 
ST2 84 
5T2 85 

ST2 86 
ST2 87 
ST2 88 
ST 2 89 

ST2 90 
ST2 91 
ST2 92 
ST2 93 
ST2 94 
ST2 95 
ST2 96 
ST2 97 
ST2 98 
ST2 99 
ST2 100 
ST2 101 
ST2 102 
ST2 103 
ST2 104 
ST2 105 
ST2 106 
ST2 107 
ST2 108 
ST2 109 
ST2 110 
ST2 111 
ST2 112 
ST2 113 
ST2 114 
ST2 115 
ST2 116 
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WRITE ( 6 * 440 ) 

ST2 

117 



WRITE (6*410) 

ST2 

118 



WRITE (6*420) 

ST2 

119 



wRITE (6*430) 

ST2 

120 



DO 180 I — 1 * NH 

ST2 

121 



WRITE (6*360) I » (FP( I *J> »J=1 *NV1 ) 

ST2 

122 


180 

continue 

ST2 

123 



WRITE ( 6 * 450 ) 

ST2 

124 



WRITE (6*460) 

ST2 

125 



WRITE (6*470) 

ST2 

126 



WRITE (6*480) 

ST2 

127 



DO 190 1 = 1 * Nh 

ST2 

128 



WRITE (6*490) I*(B(J*1»I)*J=2.14»2) 

ST2 

129 


190 

continue 

ST2 

130 



WRITE (6*500) 

ST2 

131 



WRITE (6*4b0) 

ST2 

132 



WRITE (6*470) 

ST2 

133 



WRITE (6*480) 

ST2 

134 



DO 200 I = 1 » Nh 

ST2 

135 



WRITE (6*490) I . ( B ( J * 1 * I ) * J=1 * 1 3 * 2) 

ST2 

136 


200 

continue 

ST2 

137 

c 


FIND MAX/MIN STRESS VALUES IN FACE SHEETS. 

ST2 

138 



CALL MAX(Fv.NH1,2,FVFT*1> 

ST2 

139 



IF (FVFT.LT.U.) FVFT=0. 

ST2 

140 



CALL MIN(Fv*NH1,2*FVFC. 1) 

ST2 

141 



IF (FvFC.GT.U.) FVFC=0. 

ST2 

142 

c 


FIND MAX/MIN STRESSES IN COATING. 

ST2 

143 



FVC|=0. 

ST2 

144 



DO 210 1 = 1 * Nhl 

ST2 

145 



IF (KV(I,8) .GT.FVCT) FVCT=FV(I»8) 

ST2 

146 


210 

CONTINUE 

ST2 

147 



IF (FVCT.LT.U.) FVCT=0. 

ST2 

148 



FVCC=0. 

ST2 

149 



DO 220 I=1*NH1 

ST2 

150 



IF (FV(I*8) .LT.FVCC) FVCCsFV (1*8) 

ST2 

151 


220 

CONI INUE 

ST2 

152 



IF (FVCC.GT.O.) FVCC=0. 

ST2 

153 

c 


FIND MAX SHEAR STRESS IN INSULATION. 

ST2 

154 



CALL MAX(FSM,Nh.o*FSIM*2) 

ST2 

155 

c 


FIND MAX/MN PRINCIPAL STRESSES IN INSULATION, 

ST2 

156 



CALL MAX ( FP » NH . 6 * FPI T * 1 ) 

ST2 

157 



IF (FPIT.LT.O.) FPIT=0. 

ST2 

158 



CALL MIN(FP,nh,6*FPIC,1) 

ST2 

159 



IF (FPIC.GT.O.) FPIC=0. 

ST2 

160 

c 


FIND MAX SHEAR STRESS IN CORE. 

ST2 

161 



CALL MAX ( FS»NHl 1 1 » FSCM* 2 ) 

ST2 

162 

c 


FIND MAX SHEAR STRESS IN BOND. 

ST2 

163 



CALL MAX(FSM,NH»1»FSBM,2) 

ST2 

164 

c 


FIND MAX PRINCIPAL STRESS IN BOND 

ST2 

165 



CALL MAX(FP,NH,1,FPBT*1) 

ST2 

166 



ZMAX=-B(2*1»1> 

ST2 

167 



WRITE (6*510) 

ST2 

168 



WRITE (6*520) 

ST2 

169 



WRITE (6*530) FVFT*FVFC»FVCT»FVCC*FSIM,FPIT»FPIC»FS^M,FSBM»FPBT 

*ZMST2 

170 


1 AX 

ST2 

171 


230 

continue 

ST2 

172 



RETURN 

ST2 

173 

c 



ST2 

174 


1-99 



240 FORMAT (1H1 » 45X# *AXIAL STRESSES IN LONGITUDINAL BARS*///) ST2 175 
250 FORMAT ( 15X# ^LONGITUDINAL BAR NUMBER*#10H * * * * *,//) ST2 176 

260 FORMAT ( 3X » *SEGMENT* # 7X» *1* » 14X , *2* t 14X »*3*rl4X» *4*»14X # *5* , 14X # *6ST2 177 
1*»14X*7*»14X.*8*> ST2 178 

270 FORMAT < 3X » *NUMBER* ) ST2 179 

280 FORMAT <13X#*INNER FACE* » 5X » *OUTER FACE* »7X , *R ,S. I .* *9X »*R .S. I .*»9ST2 180 
1X»*R.S.I.*»9X»*R.S.I.*#9X#*R.S.I.*»8X#*CQATING*) ST2 181 

290 FORMAT < 15X»*SHEET*#10X»*SHEET*,9X»*AT BOND* , 52X » *AT C0ATING*»///)ST2 182 
<5X# Ic#2X#8E15,5> ST2 183 

(1H1#46X»*N0RMAL STRESSES IN TRANSVERSE BARS*///) ST2 184 


300 FORMAT 
310 FORMAT 
320 FORMAT 
1 **//) 
330 FORMAT 


<26X#*BARS BETWEEN LONGITUDINAL STIFFENERS** 10H * * * * ST2 185 

ST2 186 

(16X»*SEGMENT*»6X#*1 - 2*#10X»*2 - 3*»10X#*3 - 4*»10x»*4 - ST2 187 
15*# 10X#*5 - 6 *» 10 X #*6 - 7*) ST2 188 

340 FORMAT ( 16 X# *NuM8ER* ) ST2 189 

350 FORMAT ( 30X » *CORE* , 11X »*BOND* # 10X »*R . S . I .* , 9 X » *R ,S. I . * #9X » *R .S. I ,*ST2 190 
1 # 9X# *R*S • !•*///) ST2 191 

360 FORMAT ( 18X# 12# 3X#6E15.5) ST2 192 

<1H1,53X,*SHEAR STRESS IN PANELS*///) ST2 193 

(26X»*PANELS BETWEEN LONGITUDINAL BARS*»10h * * * * *#//ST2 194 

ST2 195 

- 2* » 10X » *2 - 3* » 10X » *3 - 4* 1 10X » *4 - 5*ST2 196 

ST2 197 

SHEAR STRESSES IN BOND AND INSULATIST2 198 

ST2 199 

BAR NUMBER* »10H ****♦) ST2 200 

ST2 201 

NUMBER* »6X # *80ND* #12X#*3*»14X»*4*»14X#*5*» 14X #*6ST2 2 02 

ST2 203 


370 FORMAT 
380 FORMAT 
1 ) 

390 FORMAT <16X#*PANEL*»8X#*1 
1 # 10X # *5 - 6* # 10X» *6 “ 7*) 
400 FORMAT ( 1H1 , 39X. *MAX1MUM 
ION*///) 

410 FORMAT <44X»*L0NGITUDINAL 
420 FORMAT ( 14X # *TRANSVERSE* ) 
430 FORMAT (13x#*BAR 
1* » 14X t *7*/// ) 


440 FORMAT 
1 *///) 
450 FORMAT 
460 FORMAT 
470 FORMAT 
480 FORMAT 


500 FORMAT 
510 FORMAT 
1 ) 

520 FORMAT 

1 fpit 

530 FORMAT 
END 


(1H1»39X.*MAXIMUM PRINCIPAL STRESSES IN BOND AND INSULATI0NST2 204 

ST2 205 

( lHl * 54x » * VERTICAL OEFLECTIONS*/// > ST2 206 

(21X#*L0NGITU0INAL BAR NUMBER*»10H ♦****) ST2 207 

( 8X »* VERTICAL* ) ST2 208 

(7X»*BAR NUMBER*»7X#*1*#14X»*2*»14X»*3*»14X»*4*#14X»*5*»14XST2 209 
l»*6*»14X»*7*f //) ST2 210 

490 FORMAT ( 11X. 12» 3X» 7E15.5 ) ST2 211 

(1H1.o2X,*LONGITUDINAL DEFLECTIONS*///) ST2 212 

(1H1,^OX»*EVALUATION OF MAXIMUM (AND MINIMUM) STRESSES*////ST2 213 

ST2 214 

<6X,*FVFT FVFC FVCT FVCC FSIm ST2 215 

FPIC FSCM FS8M FPBT ZMAx *///)ST2 216 

aX»HEll,2) ST2 217 

ST 2 218- 


i-ioo 
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PROGRAM FATIG 


FTS 

1 



FTG 

2 

A C 0 U S T 

IC FATIGUE ANALYSIS 

FTG 

3 



FTG 

4 



FT6 

5 

description of input parameters 

FTG 

6 



FTG 

7 

AE 

NOZZLE EXIT AREA 

FTG 

8 

A I 

MOMENT OF INERTIA 

FTG 

9 

Aw 

panel LENGTH 

FTG 

10 

amach 

LOCAL MACH NUMBER 

FTG 

11 

Sw 

PANEL WIDTH 

FTG 

12 

c 

COEFFICIENTS OF A LEAST SQUARES# 3RD ORDER 

FTG 

13 


CURVE FIT OF ALLOWABLE S-N DATA 

FTG 

14 

D 

NOZZLE DIAMETER 

FTG 

IS 

DT 

DURATION OF NOISE IN SECONDS 

FTG 

16 

DvEH 

VEHICLE DIAMETER 

FTG 

17 

EP 

PANELS YOUNGS MODULUS 

FTG 

18 

HPAN 

THICKNESS 

FTG 

19 

He 

THICKNESS IN HONEYCOMB PANEL (MIDDLE) 

FTG 

20 

HF 

THICKNESS IN HONEYCOMB PANEL (OUTSIDE) 

FTG 

21 

IPADs 

0 VEHICLE IS IN FLIGHT 

FTG 

22 

IPAD= 

i VEHICLE IS IN THE PAD 

FTG 

23 

KFLEX 

=0 RIGID AND SYMMETRICAL SUPPORTING STRUCTURE 

FTG 

24 

KFLEX 

si FLEXIBLE AND/OR UNSYMMETRICAL SUPPORTING 

FTG 

25 


STRUCTURE 

FTG 

26 

neng 

NUMBER OF ENGINES 

FTG 

27 

npan 

=1 RECTANGULAR ISOTROPIC PLATE 

FTG 

28 

npan 

=2 RECTANGULAR HONEYCOMB SANDWICH PANEL 

FTG 

29 

NPAN 

=3 INTEGRALLY STIFFENED PANEL 

FTG 

30 

OL 

LOCAL DYNAMIC PRESSURE 

FTG 

31 

REY 

REYNOLDS NUMBER 

FT6 

32 

RhO 

material OENSITY 

FTG 

33 

T u 

JET THRUST 

FTG 

34 

T 1 

TOTAL THRUST IN l_B 

FTG 

35 

Vo 

JET VELOCITY 

FTG 

36 

Vb 

LOCAL SPEED OF SOUND 

FTG 

37 

Vo 

LOCAL VE LOCITY 

FTG 

38 

Vv 

VEHICLE VELOCITY 

FTG 

39 

Wt_J 

WEIGHT FLOW OF JET ENGINE 

FTG 

40 

wc-R 

WEIGHT FLOW OF ROCKET ENGINE 

FTG 

41 

V u 

LOCAL VELOCITY 

FTG 

42 

XI 

DISTANCE BETWEEN BOOSTER ENGINE AND POINT OF 

FTG 

43 


interest 

FTG 

44 

Xo 

DISTANCE TO EXIT PLANE OF JET ENGINE 

FTG 

45 

XL 

BOUNDARY LAYER LENGTH 

FTG 

46 

YP 

Y DISTANCE IN A NEAR FIELD LESS THAN 200 FT. 

FTG 

47 

common/appi/noapp 

FTG 

48 

common /link/ NSECT*TC»TS*TSKlNl»TSKlN2,TINSl*TINS2rTINS3»XDST 

FTG 

49 

COMMON /MOMENT/ 

AII#PMI 

FTG 

50 

COMMON /SONIC1/ 

AE *AI » AIY ,AMACH ,AMF »AW , 

FTG 

51 

1BW ,C<4) # 

0 .DREF « DT ( 4 ) »DVEH »EP»EPP »HC # 

FTG 

52 

2HF »HPAN » 

IPAD #IPF(4) # IPFl #KFLEX .NENG .NPAn » 

FTG 

53 

3QF »GL ' 

REY * RHOP ,TIMEF ,TJ #TT #VJ » 

FTG 

54 

4 VS *VU » 

VV » WE J #WER - #XI #XJ » XL # 

FTG 

55 

5YCL tYP 


FTG 

56 

DIMENSION ANL (4 ) 

#ANRMS(4) #ANML(4) #SCR(4)#PF(4)»CY(4> »SLD<4) , 

FTG 

57 


M01 



n o no 


1ANCR(4> 



FTG 

58 

DIMENSION ELW(ll), PHI(ll). TBBA<6>» TBK1<6)» TBK2<6) 


FTG 

59 




FTG 

60 

OATA AMU/. 3/ 



FTG 

61 

OATA CCC/.02/ 



FTG 

62 

DATA CG/32.174/ 



FTG 

63 

OATA NDIM/6/ 



FTG 

64 

DATA PI/3.14159/ 



FTG 

65 

OATA ELW / 



FTG 

66 

1 0.0. 1.0* 2. 0» 3. 0» 4. Of 5.0. 6 

•0. 7*0. 8*0. 

9.0. 10.0 

/FTG 

67 

DATA PHI / 



FTG 

68 

1.420* .370f . 294f ,220f .170f .144f .122. ,105f .092f 

.083. .075 

/FTG 

69 

DATA TBBA / 

■■■ - - - - 


FTG 

70 

1 l.f 1.5. 2. 0. 2.5. 3.0# 

1.E30/ 


FTG 

71 

DATA TBK1 / 



FTG 

72 

1 27.89. 20 .63. 18.45. 17.61. 17.08. 

16.12/ 


FTG 

73 

DATA TBK2 / 



FTG 

74 

1 19.74. 14.26. 12.34. 11.45. 10.97. 

9.87/ 


FTG 

75 




FTG 

76 




FTG 

77 

10 WRITE <6.390) 



FTG 

78 




FTG 

79 

COMPUTE FUNDAMENTAL FREQUENCIES 


FTG 

80 

IF <NSECT.LT. 7) GO TO 20 



FTG 

81 

NPAN=2 



FTG 

82 

IF <NSECT.EQ.8) GO TO 30 



FTG 

83 

HPAN=2*TS+TC 



FTG 

84 

HC=TC 



FTG 

85 

GO TO 30 



FTG 

86 

20 IF <NSECT.EQ.1.0R.NSECT.EQ.2.0R.NSECT. 

EQ.3.0R.NSECT.EQ 

.4) NPAN=3 

FTG 

87 

IF (NSECT.EQ.5.0R.NSECT.EQ.6) NPAN=4 



FTG 

88 

hpan=ts 



FTG 

89 

IF < TS.EQ. 0 . ) HPANrTC 



FTG 

90 

30 HPAN2=HPAN*HPAN 



FTG 

91 

HPAN3=HPAN2*HPAN 



FTG 

92 

AWWsAW 



FTG 

93 

BWW=BW 



FTG 

94 

IF (AI.EQ.0.0) AI=PMI 



FTG 

95 

WRITE (6.410) AI 



FTG 

96 

IF (AW.LE.BW) GO TO 40 



FTG 

97 

TEM1=AW 



FTG 

98 

AW=Bw 



FTG 

99 

bW=TEMl 



FTG 

100 

TEM1=AI 



FTG 

101 

AI=AIY 



FTG 

102 

aiy=temi 



FTG 

103 

40 AL2=AW*Aw 



FTG 

104 

AL4=AL2*AL2 



FTG 

105 

AMASS=RHOP*HPAN/CG 



FTG 

106 

BASBW/AW 



FTG 

107 




FTG 

108 

FSTAR=1, 



FTG 

109 

IF (KFLEX.NE.O) FSTARs.25 



FTG 

110 

GO TO (50.60.80.90) • NPAN 



FTG 

111 

RECTANGULAR ISOTROPIC PLATE 



FTG 

112 

50 DR=EP*HPAN3/(12.*<1.-AMU**2) ) 



FTG 

113 

AKSTABLE (BA.TBBA.TBK1.NDIM) 



FTG 

114 

IF (AK.EQ.O) GO TO 360 



FTG 

115 


1-102 



c 


c 


c 


c 

c 

c 

c 


c 


c 


c 

c 



60 TO 70 

FT6 

116 


RECTANGULAR HONEYCOMB SANDWICH PANEL 

FTG 

117 

bO 

HF=.S*(HPAN-hC) 

FTG 

118 


DR=EP*HPAN*HF*HC/1.82 

FTG 

119 


AK=TABL£ ( BA , TBBA , TBK2, NDIM ) 

FTG 

120 


IF (AK.EQ.O) 60 TO 360 

FTG 

121 

70 

FREOSAK/ ( 2 . *PI*AL2»SQRT ( AMASS/DR ) ) *FST AR 

FT6 

122 


60 TO 100 

FTG 

123 


INTEGRALLY STIFFENED PANEL 

FTG 

124 

80 

DR=£P*HPAN3/(12.*(1.-AMU**2> ) 

FTG 

125 


0X=DR+EP*AI/<BW*12.) 

FTG 

126 


OY=DR 

FT6 

127 


AKM=PI/A# 

FTG 

128 


AKNsPI/B* 

FTG 

129 


AKM2=AKM*AKM 

FTG 

130 


AKN2=AKN*AKN 

FTG 

131 


AKTAU= ( SORT < OX/12. )*AKM2+SQRT(Oy/12. )*AKN2>**2 

FTG 

132 


AKI=(DY/12. )*(AKM2+AKN2)+*2 

FTG 

133 


SRTsAKT AU/AK 1 

FTG 

134 


HE<J=HPAN*SRT**(l./3. ) 

FTG 

135 


0MEGA=SGRT(AKTAU*12. /AMASS) 

FTG 

136 


FRE6=0ME6 A/ ( * . *P I ) *FST AR 

FTG 

137 


60 TO 10U 

FT6 

138 


corrugated PANEL 

FTG 

139 

90 

AIXSAI 

FTG 

140 


DY=EP*AIX/(Aw*12. ) 

FTG 

141 


0X=EP*AIY/(tJ rt *12. ) 

FTG 

142 


AKM=PI/Aw 

FTG 

143 


AKNsPI/Bw 

FTG 

144 


AKM2=AKM*AKM 

FTG 

145 


AKN2=AKN*AKN 

FTG 

146 


AKTAU=(SQRT<uX)^AKM2+S0RT(DY)*AKN2)**2 

FTG 

147 


OMEGA=SQRT(AkTAU/AMASS) 

FTG 

148 


FRE0=0ME6A/ ( *; . *PI ) +FSTAR 

FTG 

149 

100 

CONTINUE 

FTG 

150 


WRITE (6»*+20) FREQ 

FTG 

151 



FTG 

152 


NOISE COMPUTATIONS 

FTG 

153 



FTG 

154 



FTG 

155 


DO 220 I=1»IPFI 

FTG 

156 


IPFF=IPF(I> 

FTG 

157 


60 TO (110,120,160*210)* IPFF 

FTG 

158 


1. BOUNDARY LAYER 

FTG 

159 

110 

SIGMAX=.37*REY**(-.2)*(l,+(REY/2.9E7)**2)**.l 

FTG 

160 


FZER0=8. *VU/SIGMAX/XL 

FTG 

161 


PF IS SPECTRUM PRESSURE 

FTG 

162 


PF ( I ) =QL*SQRT ( . 012/ < ( 1 . ♦ . 14*AMACH**2 ) *FZERO* < 1 .♦( FREQ/FZERO ) **2 ) **FTG 

163 


11.5) ) 

FTG 

164 


FPLF=20 , wALOGIO (PF (I)/ 4l. 8E-8 ) 

FTG 

165 


WRITE (6*430) FPLF,REY» AMACH»QL» VU 

FTG 

166 


60 TO 220 

FTG 

167 



FTG 

168 


2. ROCKET ENGINE NOISE (BOOSTER AND OrbITER) 

FTG 

169 

120 

VEXH=TT*CG/WER 

FTG 

170 


FDV=FREQ*D/VEXH 

FTG 

171 


IF (FDV,LE.,i75) GO TO 130 

FTG 

172 


RTERMs-, 222-1. 315*ALOG10(FDV) 

FTG 

173 


1-103 



nn o no 


C 


C 


GO TO 140 


FTG 174 


130 RTERM=.625-.202*ALOG10(FDV) FTG 175 

140 X2ERO=D*10.**RTERM FTG 176 

RSXI+XZERO FTG 177 

IF ( IPAD.EQ. 0 ) GO TO 150 FTG 178 

IF (XZERO.GT. (OREF+YCL) > R=SQRT< (XI+DREF)**2+(XZER0-DREF-YCL>**2> FTG 179 

IF (XZERO.GT.DREF.ANO.XZERO.LE. (DREF+YCL) ) R=SQRT ( ( XI+QREF) **2+ t YCFTG 180 


1L-XZER0+DREF>**2) 

IF (XZERO.LE.OREF) R=SQRT<(Xl+XZERO)**2+YCL**2) 

COMPUTE SPL SOUND PRESSURE LEVEL 
150 IF (FDV.LE..016) SPL=70 . +16.6*AL0G10 (FDV/ . 003) 

IF (FDV.LT..152.AND.FDV.GT..016) SPL=82. 

IF (FDV.GE..152) SPL=70.-16.6*ALOG10 (FDV/.8) 
CAPI0=VS/(PI*DVEH) 

DELBPsO. 

IF (FREO.GE.CAPIO) DELBP=6.0 

OBSPL IS OCTAVE BAND SOUND PRESSURE LEVEL 
OBSPL=10 . *ALOGlO C . 676*TT**2*CG/WER ) +SPL-20 . wALOGiO ( R ) 4-DELBP 
BWD1 =BANUW(FkEQ) 

SPLF=OBSPL-10.*ALOG10(BWD1) 

WRITE (6.440) SPLF,XZERO 
PF ( I ) =41 #8E-8*10 • ** (SPLF/20 « > 

GO TO 220 


3. JET FLYBACK ENGINE NOISE ON VEHICLE 


FTG 181 
FTG 182 
FTG 183 
FTG 184 
FTG 185 
FTG 186 
FTG 187 
FTG 188 
FTG 189 
FTG 190 
FTG 191 
FTG 192 
FTG 193 
FTG 194 
FTG 195 
FTG 196 
FTG 197 
FTG 198 


160 VR=ABS(VV-VuJ 

UJ=SGRT(4.*AE/PI) 

RHOFswE J/ < AE*Vj ) 

FVRLG=145.+lUO.*ALOGlO(VR/1600. ) 

SPL200 IS OVERALL SOUND PRESSURE LEVEL FOR Y=200FT. 
SPL200=FvPlG+10.*ALOG10(RHOF**2*AE) 

SPLNF IS SOUND PRESSURE LEVEL AT YP DISTANCE 
NONDIMESIONALIZE DISTANCES 
Y20QOJ=2Q0./JJ 
Y 30DJ=30 . /DJ 
Y2SDJ=2.b/UJ 
YPOJ=YP/UJ 

TERM1=20 . *ALOG10 ( Y2000J/Y30DJ) 

TERM2=16.*AL0G10( Y30DJ/Y25DJ) 

IF (YPDJ.GT.ii0O. ) GO TO 190 
IF (YPDJ.LT.30. ) GO TO 170 
UELDB=20 . * ALOGl 0 ( Y200DJ/YPD J ) 

GO TO 200 

170 IF (YPDJ.LT .2.5) GO TO 180 

DELDB=TEKMl+i6.*ALOG10<Y300J/YPDJ> 

GO TO 200 

180 IF (YPDJ.LT.a.) GO TO 190 

DELDB=TERM1+TERM2+14.*ALOG10(Y25DJ/YPDJ) 

GO TO 200 

190 WRITE ( 6 » 400 ) YP 
GO TO 360 

200 SPLNF=SPl200+DELDB+6. 

FREQP=.8*VJ/uJ 

BWD=BANDW(FRE0) 

OBMAx=SPLNF-o. 

CVF=CURVEF(FkEQP,FREQ> 

IF (CVF.EQ.-D GO TO 360 
OBSPL=OBMAX-CVF 


FTG 199 
FTG 200 
FTG 201 
FTG 202 
FTG 203 
FTG 204 
FTG 205 
FTG 206 
FTG 207 
FTG 208 
FTG 209 
FTG 210 
FTG 211 
FTG 212 
FTG 213 
FTG 214 
FTG 215 
FTG 216 
FTG 217 
FTG 218 
FTG 219 
FTG 220 
FTG 221 
FTG 222 
FTG 223 
FTG 224 
FTG 225 
FTG 226 
FTG 227 
FTG 228 
FTG 229 
FTG 230 
FTG 231 


1-104 



on noon ooooo 


splf=obspl-io.*alogio<swd> 
WRITE (6*450 ) SPLF 
PF ( I ) =41 . 8E-d*l 0 . ** < SPLF/20 . ) 
GO TO 220 


4. JET SCRUBBING ON BODY 
PE IS PRESSURE AT NOZZLE EXIT 
210 PE=TJ*1.27b/DJ**2 

DX IS JET DIAMETER AT X FEET 
DX=DJ*( l.+.244*XJ/DJ) 

PX IS SCRUBBING PRESSURE 
PX=«155*TJ/0X**2 
SPLX=20.*ALOGlO(PX/41.8E-8) 

FREQP=, 4*V J/JJ 
bWD=BANDW(FRtO) 

0BMAX=SPlX-5. 

C VFsCURVEF ( FREQP , FREO ) 

IF (CVF.EO.-D GO TO 360 

obspl=obmax-cvf 

SPLF=OBSPL-10.*ALOG1G(BWO> ’ 

WRITE (6*460) SPLF 

PF( I )=41.8E-6*10.**( SPLF/20. ) 

220 CONTINUE 


OrNAMIC STRESSES 
6WD=. 04*F p EO 

SUM1=0. 

SUM2=0. 

SBWD=SQRT (BWO) 

UO 340 1-1 * IPF l 
PBAR=PF(I)*StSWD 
C Y ( I ) =0 . 

SCR(i)=0. 

SCON=,S 

IF ( KFLEX «NE . 0 , ) SC0N=,75 
OCON=4.089 

IF (KFLEX. NE. 0. ) DC0N=20.445 
60 TO (230,240*250*260)* NPAN 

SMAX IS MAXIMUM BENDING STRESS 
Y^AX IS maximum OEFLECTION 

230 HEFF=HPAN 

SMAx=SC0N*AL2*PBAR/HPAN2 
YMAX=DCON*PBAR*AL4/(EP*HPAN3) 
SLD(I)=100.*SMAX 
GO TO 270 

240 HEFF=l.8l7*(HC*HF*HPAN)**<l./3. ) 
SMAXSSC0N*PBAR/HEFF**2*AL2 
YMAX=0C0N*PBAR*AL4/ (EP*HEFF**3) 
SLD(I)=100.*SMAX 
GO TO 270 
250 HEFF=HEQ 

SMAX=SCON*PBAR*AL2/HEQ**2 
YMAX=DCON*PBAR*AL4/ ( EP*HEO**3 ) 

SD=25.*SMAx 
SLD( I )=4.*SD 
GO TO 270 


FTG 232 
FTG 233 
FTG 234 
FTG 235 
FTG 236 
FTG 237 
FTG 238 
FTG 239 
FTG 240 
FTG 241 
FTG 242 
FTG 243 
FTG 244 
FTG 245 
FTG 246 
FTG 247 
FTG 248 
FTG 249 
FTG 250 
FTG 251 
FTG 252 
FTG 253 
FTG 254 
FTG 255 
FTG 256 
FTG 257 
FTG 258 
FTG 259 
FTG 260 
FTG 261 
FTG 262 
FTG 263 
FTG 264 
FTG 265 
FTG 266 
FTG 267 
FTG 268 
FTG 269 
FTG 270 
FTG 271 
FTG 272 
FTG 273 
FTG 274 
FTG 275 
FTG 276 
FTG 277 
FTG 278 
FTG 279 
FTG 280 
FTG 281 
FTG 282 
FTG 283 
FTG 284 
FTG 285 
FTG 286 
FTG 287 
FTG 280 
FTG 289 
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c 


c 


260 HEFF=(10.9*( (SQRT(AIY/8W)/AW**24-SQRT(AIX/AW)/BW**2)/(1./AW**2+1./BFTG 290 


1W**2) )**2)**0.3333 
SMAxsSCON*PBAR*AL2/HEFF**2 
YMAx=DC0N*PBAR*AL4/ (EP*H£FF**3 > 

SLU(,I)s100.*SMAX 
270 WRITE (6*470) SL0(I>*YMAX 

STRESS REVERSALS PER MISSION OR FOR VEHICLE LIFETIME 

IPFF=IPF(I) 

ANL ( I ) =FREQ*DT < IPFF ) 

ANRMS(I)=.6i*ANLtI) 

CALL MINlNO(C»SLD(I> *ANRMS( I) »CY( I> *SCR(I> ) 

IF (N0APP.E0.2) GO TO 360 
60 TO (260 #290 >300*310)* IPFF 
280 WRITE (6*460) SCR(I) 

GO TO 320 

290 WRITE (6*490) SCR(I) 

GO TO 320 

300 WRITE (6*500) SCK(I> 

GO TO 320 

310 WRITE (6*510) SCR(I) » 

320 IF (SCR(I) .EQ.O.) GO TO 340 

ANCR ( I ) =1 . 261 *ANRMS ( I ) *SLD ( I ) /SCR ( I ) 

WRITE (6*520) ANCR(I) 

SUMl=SCR ( I > *»2+SUMl 
SUM2SANRMS ( I ) ^LD < I ) +SUM2 
X=ALOG10(ANCK<I) ) 

ALLST=(C(1)+C(2)*X+C(3)*X**2+C(4)*X**3)*1000. 

IF (ALLST.GE.SCR(I) ) GO TO 330 
WRITE (6*530) ALLST 
GO TO 340 

330 WRITE (6*540) ALLST 
340 CONTINUE 

IF (SUM1.EQ.J.) GO TO 360 
SBAR=SQRT(SUM1) 

ANBARsl ,261*SUM2/SBAR 
WRITE (6*550) SBAR * ANBAR 
X=ALOG10 (ANBAR) 

ALLST = (C (1)+C(2)*X4.C(3>*X**2+CU)*X**3>*1000. 

IF ( ALLST. GE. SBAR) GO TO 350 
WRITE (6*530) ALLST 
GO To 360 

350 WRITE (6*540) ALLST 
360 X=Aww/BWw 

X=TABLE(X»ELv**PHI *11) 

IF (X.EO.O.) WRITE (6*560) 

WRITE (6*570) TIMEF»£PP» AMF *QF» X 
TB=0. 

IF (QF.EQ.O.) GO TO 380 
TB=X*AWW*12. 0/ (EPP*144. 0/QF ) **0 , 333 
IF (TB.GT.HEFF) GO TO 370 
WRITE (6*580) 

GO TO 380 
370 WRITE (6*590) 

380 WRITE (6*600) HEFF*TB 
RETURN 

390 FORMAT ( 1H1 ) 

400 FORMAT (18HOY-OISTANCE ERR0R=E12.4) 


FTG 291 
FTG 292 
FTG 293 
FTG 294 
FTG 295 
FTG 296 
FTG 297 
FTG 298 
FTG 299 
FTG 300 
FTG 301 
FTG 302 
FTG 303 
FTG 304 
FTG 305 
FTG 306 
FTG 307 
FTG 308 
FTG 309 
FTG 310 
FTG 311 
FTG 312 
FTG 313 
FTG 314 
FTG 315 
FTG 316 
FTG 317 
FTG 318 
FTG 319 
FTG 320 
FTG 321 
FTG 322 
FTG 323 
FTG 324 
FTG 325 
FTG 326 
FTG 327 
FTG 328 
FTG 329 
FTG 330 
FTG 331 
FTG 332 
FTG 333 
FTG 334 
FTG 335 
FTG 336 
FTG 337 
FTG 338 
FTG 339 
FTG 340 
FTG 341 
FTG 342 
FTG 343 
FTG 344 
FTG 345 
FTG 346 
FTG 347 
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410 FORMAT (27H PANEL MOMENT OF INERTIA = .E10.3.10H INCHES**4/) FTG 348 

420 FORMAT (13M FREQUENCY = .F7.1.3H HZ/) FTG 349 

430 FORMAT <24h BOUNDARY LATER NOISE = .F6.1.21H OB - REYNOLDS NO. = .FTG 350 

1E12 .4 . 13h. MACH NO. = .E12.4/20H DYNAMIC PRESSURE = .E12.4.13H. VEFTG 351 
2L0CITY = .E12.4) FTG 352 

440 FORMAT <23H ROCKET ENGINE NOISE = .F6.1.31H DB - APPARENT NOISE SOFTG 353 
1URCE AT ,P6.1»3H FT) FTG 354 

450 FORMAT ( 14H ABES NOISE = »F6.1#3H DB) FTG 355 

460 FORMAT (23H JET SCRUBBING NOISE r .F6.1.3H DB) FTG 356 

470 FORMAT (26H0MAXIMUM BENDING STRESS = .F10.0.4H PSI/26H MAXIMUM RMSFTG 357 
1 DEFLECTION = .F10.5.3H IN) FTG 350 

480 FORMAT (40H BOUNDARY LAYER NOISE CRITICAL STRESS = *E12.4.4H PSI) FTG 359 
490 FORMAT ( 39h ROCKET ENGINE NOISE CRITICAL STRESS s .E12.4.4H PSD FTG 360 
500 FORMAT (44 m JET FLYBACK ENGINE NOISE CRITICAL STRESS = .E12.4.4H PFTG 361 
1SI) FTG 362 

510 FORMAT ( 39m jET SCRUBBING NOISE CRITICAL STRESS = »El2.4.4H PSD FTG 363 

d20 FORMAT (27H NO. OF STRESS REVERSALS = .E12.4) FTG 364 

530 FORMAT ( 35h ♦♦♦PANEL IS SUSCEPTIBLE TO FAILURE/39H CRITICAL STRFTG 365 
1ESS MUST 8E kEDUCED TO .E12.4.21H PSI TO AVOID FAILURE) FTG 366 

buO FORMAT (36H ♦♦•PANEL IS GOOD FOP THIS CONDITI0N/40H CRITICAL STFTG 367 
1RESS MAY BE INCREASED TO .E12.4.4H PSI) FTG 368 

550 FORMAT ( 29HOCOMPOSITE CRITICAL STRESS = .E12.4.4H PSI/27H No. OF SFTG 369 
1 TRESS REVERSALS = .E12.4) FTG 370 

560 FORMAT (43H AW/B W WAS OUTSIDE THE TABLE LIMITS FOR PhD FTG 371 

d70 FORMAT (42H0PANEL FLUTTER ANALYSIS - DESIGN POINT AT .E12.4.18H SEFTG 372 
U-ONDS OF FLIGHT/18H YOUNGS MODULUS = .E12.4.13H. MACh NO. = .E12.4FTG 373 
2/20H Q LOCAL/FCN(AMI> = .E12.4.8H. PHI r »El2.4) FTG 374 

580 FORMAT <31h ♦♦♦PANEL IS STABLE FOR FLUTTER) FTG 375 

590 FORMAT ( 33H ♦♦♦PANEL IS UNSTABLE FOR FLUTTER) FTG 376 

oOO FORMAT ( 32H PANEL EFFECTIVE THICKNESS = .E12.4.4H IN./64H PAFTG 377 

1NEL EFFECTIVE THICKNESS NECESSARY FOR FLUTTER STABILITY = »E12.4»4FTG 378 
2H IN.) FTG 379 


END 


FTG 380- 
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FUNCTION ALL(ARR,CY) ALL 1 
DIMENSION ARRU) ALL 2 
A1(X)=(ARR(I)+ARR(2)*X+ARR(3)*X**2+ARR(4)*X**3)*1000.0 ALL 3 
Y=ALOG10(CY> ALL 4 
Y YSALOGl 0 ( 1 • 0 1*C Y ) ALL 5 
ALLS(Ai(YY)-Al(Y) )/<0.01*CY)*CY ALL 6 
RETURN ALL 7 

end all a- 
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FUNCTION APPISLD»CY»CYL»ARR) 

COMMON/ APP1/NOAPP 
DIMENSION C<3>» ARRC4) 

DATA <C<I>#I=l»3)/2.6311O2E-O2#-2.635E-02»-4.93933lE-Ol/ 
A1(X)=2./PI*AC0S(1.-PI/1.212*(1.-X)) 

A2(X)=(-C(2)-SQRT(C(2)**2-4.*C(3)*(C( l)-ALOG(X) ) ) )/<2.*C(3) ) 

A3(X)=(ARR(ii+ARR(2)*X+ARR(3»*X**2+ARR(4)*X**3>*1000. 

PI=3.141S9 

yrCY/CYL 

IF (Y.GT.0.455.AND.Y.LT.1.0) GO TO 30 
YY=Y-0.0001 

IF (YY.GE.O.) GO TO 20 
YY=Q. 

IF (A2(Y)*SLD.GT.A3<Y) ) GO TO 10 
WRITE ( 6 » 50 ) 

NOAPP=l 
RETURN 
10 NOAPP=2 

WRITE (6#60) 

RETURN 

20 2=(A2(Y)-A2(YY) >*10000. 

app=z*sld/cyl*cy 

RETURN 

30 YY=Y+0.0001 

IF (YY.LE.l.) GO TO 40 
YY=1. 

FACT=YY-Y 

2=<A1<YY)-A1(Y) I/FACT 

APPs2*SLD/CYL*CY 

RETURN 

40 2=(A1(YY)-A1(Y) >*10000. 

APP=Z*SLD/CYl*CY 

RETURN 


APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 

APP 


50 FORMAT ( ///50H ***** SONIC FATIGUE NOTE *****/5APP 
ION THE NUMBER OF STRESS REVERSALS IS SO LOW THAT /50H FATIGUE APP 
2IS NOT A FACTOR FOR THIS CONFIGURATION /50H AND ALLOWABLE S-N CUAPP 
3RVE, THE ACOUSTIC FATIGUE /50H ANALYSIS FOR THIS NOISE SOURCE IAPP 
4S OMITTED. /7X»35H***** END OF NOTE *****//) APP 

60 FORMAT (47H04PPLIED S-N CURVE EXCEEDS ALLOWABLE S-N CURVE.) APP 

END APP 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 
41- 
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FUNCTION BANDW(F) 

/ THIS SUBROUTINE COMPUTES BANDWIDTH AS A FUNCTION 

OF FREQUENCY 

dimension FT6< 13) »BWTB( 13) 

DATA FTB/ 2 . » 4.# 8., 16. » 

1 31.5 #63,0 » 125. #250. *500. » 

2 1000. f 2000. #4000. *8000. / 

OATA BWTB/1.35* 2.75# 5.5# 11.# 

1 22.5 #45.0 #90.0 #180. #355. # 

2 700. #1400. #2800. #5600. / 

IF (F.GE. . 65. AND. F.LE. 10800.) 60 TO 10 
WRITE ( 6 # 30 ) F 

IF (F.LT.0.6b) BANDW=1.35 
IF (F.6T. 10800.) BANOW=5600. 

RETURN 
10 1=0 
20 1=1+1 

IF (F.GT.<FTB(I)+BWTB(I)/2.)) GO TO 20 
BANQW=BWTB(I) 

RETURN 

30 FORMAT ( 19H0FREQ. ARG. ERROR =E12.4) 

END 


BND 1 
BND 2 
BND 3 
BND 4 
BND 5 
BND 6 
BND 7 
BND 8 
BND 9 
BND 10 
BND 11 
BND 12 
BND 13 
BND 14 
BNO 15 
BND 16 
BND 17 
BND 18 
BND 19 
BND 20 
BND 21 
BND 22 
BND 23 
BND 24- 
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FUNCTION CURVEF(F»FSTAR) 

CRV 

1 


THIS FUNCTION IS USED TO COMPUTE OBSPL 

CRV 

2 


ITER=0 

CRV 

3 


SUMO£L=0. 

CRV 

4 


IF (FSTAR.GT.F) GO TO 30 

CRV 

5 


FUNDAMENTAL frequency is less than f 

CRV 

6 


0ELUBPS4. 

CRV 

7 


F U=F 

CRV 

8 

10 

FL=,b*FU 

CRV 

9 


IF (FL.LE.FSTAR) GO TO 20 

CRV 

10 


sumoel=sumdel+oeldbp 

CRV 

11 


fu=fl 

CRV 

12 


iter=iter+i 

CRV 

13 


IF (ITER. GT. 100) GO TO 70 

CRV 

14 


GO TO 10 

CRV 

15 

20 

DELOB= ( FSTAR-Fl ) / ( FU-FL) *DELDBP+SUMDEL 

CRV 

16 


GO TO 60 

CRV 

17 


FUNDAMENTAL FREQUENCY IS GREATER THAN F 

CRV 

18 

30 

0ELDBP=3.5 

CRV 

19 


FL=F 

CRV 

20 

40 

FU=2.*FL 

CRV 

21 


IF (FU.GE.FSTAR) GO TO 50 

CRV 

22 


sumdel=sumoel+deldbp 

CRV 

23 


FL=Fu 

CRV 

24 


ITER=ITER+1 

CRV 

25 


IF (ITER. GT. 100) GO TO 70 

CRV 

26 


GO TO 40 

CRV 

27 

50 

UELDB= ( FSTAR-Fl ) / ( FU-FL ) ♦DELDBP+ SUMDEL 

CRV 

28 

60 

curvef=deldb 

CRV 

29 


RETURN 

CRV 

30 

70 

WRITE (6*80) F.FSTAR 

CRV 

31 


CURVEF=-1. 

CRV 

32 


RETURN 

CRV 

33 



CRV 

34 

80 

FORMAT (30HOERROR IN OBSPL COMPUTATION F=El2.4,3X*6HFSTAR=El2.4 ) 

CRV 

35 


ENO 

CRV 

36- 
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10 

20 


30 


40 


50 


60 


70 


60 

90 

100 

110 


SUBROUTINE MININO(DI »SLD*CYL»CY,SCR ) MNN 
COMMON/APPl/NOAPP mnn 
OIMENSION C ( 3 ) MNN 
DIMENSION DI<4) MNN 
DATA C / 2.631102E-02, -2.635E-02. -4.939331E-01 /» PI / 3.14159 /MNN 
NOAPPsO MNN 
CYMAXSCYL M ^N 
XIUS1.E30 MNN 
ETAU=1.0 MNN 
XIL=0.0 MNN 

etal=o.o mnn 

L=0 MNN 
DO 10 I=L»10 MNN 
ETA=0. 999/10. **I MNN 

cy=eta*cyl mnn 
C1=APP(SLD.CY»CYL»DI) mnn 
IF (NOAPP.NE.O) GO TO 100 MNN 
C2=ALL(DIrCY) MNN 
XI=C2-C1 mnn 
IF (XI.GE.XIU) GO TO 90 MNN 
IF (ABS(XI/C1) .LT.0.01) GO TO 70 MNN 
IF (XI.LT.0.0) GO TO 20 MNN 

XI USX I mnn 

ETAU=ETA MNN 

continue mnn 

XlL=XI MNN 
etal=eta MNN 
ETA=0.5*(ETAl+ETAU> MNN 
CY=E r A*C YL MNN 
C1 =APP(SLD»Cy*CYL»DI) mnn 
IF (NOAPP.NE.O) GO TO 100 MNN 
C2=ALL(DI»CY) MNN 
XI=C2-C1 MNN 
IF ( ABS (Xl/Ci) ,LT .0.01) GO TO 70 MNN 
IF (XIL.LE.XI.AND.XI.LE.XIU) GO TO 40 MNN 
GO TO 90 MNN 
IF (XI.LT.0.0) GO TO 50 MNN 
XIU=XI MNN 
ETAU=ETA MNN 
GO TO 60 MNN 
XIL=X1 MNN 
ETAL=ETA MNN 
ETA=0.5 *(ETAl+ETAU) mnn 
CY=ETA*CYL MNN 
C1=APP(SLD»CY»CYL»DI) mnn 
IF (NOAPP.NE.O) GO TO 100 MNN 
C2=ALL(DI»CY> MNN 
XI=C2-C1 MNN 
GO TO 30 MNN 
Y=CY/CYL MNN 
IF ( Y .GT . 0 .455, AND. Y . LT. 1 . 0 ) GO TO 80 MNN 
SCR= ( ( -C ( 2 ) -SORT ( C ( 2 ) **2-4 . *C ( 3 ) * ( C ( 1 ) -ALOG ( Y > ) ) ) / ( 2 . *C < 3 ) ) ) *SLD MNN 
GO TO 110 MNN 
SCR=(2./PI*AC0S(1.-PI/1.212*(1.-Y) ) )*SLO MNN 
GO TO 110 MNN 
GRlTt (6*120) MNN 
SCR=0. MNN 
RETURN MNN 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 
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MNN 

MNN 

MNN 


59 

60 
61- 


120 FORMAT < 30H0ITERATION FAILED TO CONVERGE.) 
END 



non 


OVERLAY (P5490t3»0»COOOOOO) 


program ORVTPS 






DRV 

1 








DRV 

2 

common/comtot/ 






DRV 

3 

1 AT 

tBT 

tCT 

tCFl 

tEGTH 

tETA 

f 

DRV 

4 

2FTH 

»FTS 

t K 1 

t K2 

tK3 

tNpA 

9 

DRV 

5 

30S 

* STPS 

t TUNWT 





DRV 

6 

COMMON /LINK/ NSECT* 

TC#TS»TSKIN1,TSKIN2 

tTINSltTINS2* TINS3 1 

XOST 

DRV 

7 

COMMON/STOHR/ 






DRV 

8 

1E0P 

♦larate 

tMATLlO 

»NN 

tPI 

»Refct 

9 

DRV 

9 

2ST0HR 

»VftATE 






DRV 

10 

COMMON/WTA/ 






DRV 

11 

1A 

»B 

» CHORD 

tDlABHl 

tDlAPOH 

.diargh 

9 

DRV 

12 

2DIAPGH 

»DIAPTH 






DRV 

13 

3DLPANL 

rDfcPANL 

tEEDGE 

tElRlB 

tE2RIB 

tE3RIB 

9 

DRV 

14 

4GB0LT 

.gclamp 

tGINSRT 

tGINSuL 

tGNUTPL 

tGWASH 

9 

DRV 

15 

5HBEAMA 

#hfngi 

»HFNG2 

tHPLATE 

tHPOST 

tHRIB 

9 

DRV 

16 

6HRING 

t I uFNGI 

t IDFNG2 

tKINDP 

t KINDS 

tLBMLA 

9 

DRV 

17 

7LBMLC 

#LdMSA 

t LBMSC 

tLCORN 

tLDOUBR 

t length 

9 

DRV 

18 

0LPANL 

#LPOST 

• LRIBL 

tLRIBS 

tLSEAL 

tLSTFNR 

9 

DRV 

19 

9LTUBE 

t NR IBS 

#NXA 

tNYA 

tODFNGl 

tODFNG2 

9 

DRV 

20 

SOOPOSR 

rOjPOST 

» ooring 

tPBM 

tPCORE 

tPEDGE 

9 

DRV 

21 

SPINS! 

»PiNS2 

# PINS3 

tPPOST 

tPRIB 

rPSEAL 

9 

DRV 

22 

3.PSKIN1 

#PSKIN2 

t PTUBE 

t R 

tRADIUS 

»s 

9 

DRV 

23 

stbmla 

t TbMLC 

r TBMSA 

tTBMSC 

tTCORE 

tTcORN 

9 

DRV 

24 

STDOUdC 

» TDOUBP 

»TEDGE 

tTFNGl 

tTPLATE 

tTpLUG 

9 

DRV 

25 

*TPOST 

» T K IBL 

t TRIBS 

tTRINGl 

# TRING2 

tTSEAL 

9 

DRV 

26 

STTUBE 

»TwRIB 

* TlRIB 

tT2RIB 

rWBEAMA 

t wqmla 

9 

DRV 

27 

SttBMLC 

t rtoMSA 

f WBMSC 

tWCORN 

tWCORR 

tWDOUPP 

9 

DRV 

28 

SwDOUbR 

t WIDTH 

t WPANL 

tWPLATE 

tWPOST 

tWRIBL 

9 

DRV 

29 

SWRIBS 

»wseal 

# WSTFNR 

tZFAS 




DRV 

30 

COMMON/WTCOS l / 






DRV 

31 

1ACWT 

f AKiUV 

t AOP ( 7» 7 ) 

t ITL 

tKK 

tK L IC 

9 

DRV 

32 

2C0SWT 

|KT 

t LEN 

t ltuber 

tMAWT 

»N 

9 

DRV 

33 

3PEXT 

» TEXT 

# WID 

tZZUB 




DRV 

34 

COMMON/ ZtPO/ 






DRV 

35 

ilabhr 

t LmCOST 

#TACWT 

tTALABH 

tTASTDH 

tTASYCO 

9 

DRV 

36 

2TFC0ST 

»TlAcOS 

t TLBHR 

t tmawt 

t TSTDHR 

tTTFCOS 

9 

DRV 

37 

3TTLAC0 

1 T l LBHR 

.TTMCOS 

tTTSHR 

» TTVCOS 

tTvCOST 

9 

DRV 

38 

4VCOST 







DRV 

39 








DRV 

40 

dimension 

I A ( l ) r IB ( 1 ) 





DRV 

41 

EQUIVALENCE (IA»A), 

( I8» LABHR ) 




DRV 

42 








DRV 

43 

REAL 1DFNG1 t IDFNG2 * 

Kl» K2, 

K3t LENGTH 

t LTUBEt 

NPA 


DRV 

44 








DRV 

45 

initialize input variables 





DRV 

46 








DRV 

47 

* 

II 

*-* 

O 

o 

Q 

105 






DRV 

48 

IA(I)S0 







DRV 

49 

CONTINUE 







DRV 

50 

DO 20 1=1 r 

19 






DRV 

51 

IB ( I ) =0 







DRV 

52 

CONTINUE 







DRV 

53 

CT=.b6 







DRV 

54 

EGTHS3.75 







DRV 

55 

ETAsO.3 







DRV 

56 

FTHsg.O 







DRV 

57 
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FTSs.67 

NPA=i,0 

0S=l,332 

PI=3.1416 

STPS=100Q. 

TINsirTlNSl*12.0 

WRITE ( 6 » 200 ) 

*** READ WEIGHT-LOST INPUT 


DRV 58 
DRV 59 
DRV 60 
DRV 61 
DRV 62 
DRV 63 
DRV 64 
DPV 65 
DRV 66 
DRV 67 

READ (5*210) kINDP, KINDS.LENGTH, WIDTH, DLPANL,DWPANL>A*0 #MATl1D,ICODRV 68 
IS DRV 69 

READ (5.220) P1NS1,P1NS2,PINS3,TINS1,TINS2»TINS3 DRV 70 

WRITE (6.230) KINOP, LENGTH, WIDTH. DLPANL.DWPANL, A, B, ICOS, KINDS. TINSDRV 71 
11»TINS2.TINS3»PINS1»PINS2,PINS3»MATLIP DRV 72 

IF (KINDP.GT.O.ANO.KINOP.LT.d) GO TO 30 DRV 73 



WRITE (6,240) 

DRV 

74 


RETURN 

DRV 

75 

30 

GO TO (40.50,60,80,80), KINDP 

DRV 

76 



DRV 

77 

*** 

KINDP = 1 

DRV 

78 


40 READ (5.250) NRIBS. CHORD. RADIUS 

WRITE (6,260) HRIRS, CHORD. RADIUS, TSKIN1,TSKIN2 
bO TO 70 

*** MNDP = 2 

50 READ (5,220) GlNSRT » TCORE » TEDGE 

WRITE (6,270) GlNSRT, TCORE, TEDGE. TSKIN1.TSKIN2 
GO TO 70 

*** KINDP = 3 


DRV 79 
DRV 80 
DRV 81 
DRV 82 
DRV 83 
DRV 84 
DRV 85 
DPV 86 
DRV 87 
DRV 88 
DRV 89 
DRV 90 


DRV 91 

60 READ (5,250) Np IbS, HR IB . TEDGE, E 1RIB .E2RIB , E3RIB » T1R T B . T?R IB , TWRIB DRV 92 
WRITE (6,280) NRIBS, HRIB,E1RI8,E2RIB,E3RI8, TEDGE, TSKIN1,T)RIB.T2RIDRV 93 
lb, TWKI8 DRV 94 


70 AT=,667 
bT=.187 
CF1=0. 

Kl=. 00171 
K2=6.58 
K3=. 004324 
bO TO 130 

♦** KINDP = 4 OR 5 

80 READ (5,220) GlNSRT, TCORE , TEDGE, TEXT , PEXT 

WRITE (6,290) GlNSRT , TCORE, TEDGE , TEXT , PEXT , TSKIN1 , TSk IN2 
PEXT=PEXT/1728, 

AT=0.6 
BT=0.6 
CF1=1.0 
K3=, 004974 

IF (KINDP-5) 90,100,110 
90 Kl=. 06528 
GO TO 120 
100 Kl=, 03295 


DRV 95 
DRV 96 
DRV 97 
ORV 98 
DRV 99 
DRV 100 
DRV 101 
DRV 102 
DRV 103 
DRV 104 
DRV 105 
DRV 106 
DRV 107 
DRV 108 
DRV 109 
DRV 110 
DRV 111 
DRV 112 
ORV 113 
DRV 114 
ORV 115 


1-115 



11 0 
iao 

130 


140 

c 

c *** 

c 

150 


K2=.30Q 
GO TO 130 
Kls. 07181 
K2=.575 

IF (KINDS. EG). 0) GO TO 180 
IF (KINDS. GT.O. AND. KINDS. LT. 4) 
WRITE ( 6 . 300 ) 

RETURN 

GO TO ( 150 . 160 . 170 ) . KINDS 
KINDS = 1 




GO TO 

180 

c 




c 

*#* 

KINDS 

= 2 

c 

160 

READ 

(5.220) 



WRITE 

(6.320 



GO TO 

160 

c 




c 

*** 

KINDS 

= 3 

c 

170 

read 

(5.220) 


180 


190 


200 

210 

220 

230 


240 

250 

260 

270 

280 


DRV 
DRV 
DRV 
DRV 
DRV 

GO TO 140 DRV 

DRV 
DRV 
DRV 
DRV 
ORV 
DRV 

READ (5*220) G80LT * GNUTPL .GWASH , TCORN. TPOST » ODPOST , LTUbE * TTUBE . TFNDRV 
1G1 »TBMLA»TBMSA,TDOUBC:TDOUBP*TPLATE»TSEAL*HBEAMA»WBEaMA DRV 

WRITE (6*310) GBOLT * GNUTPL . Gw ASH * TCORN , TPOST * ODPOST * LTUBE * TtURE . TFDR V 
1NG1 * TBMLA . TBMSA , T00U6C * TOOUBP # TPLATE * TSEAL * HBEAMA * wBEAMA DRV 

DRV 
DRV 
DRV 
DRV 

GBOLT * GNUTPL * GWASH , GINSUL » TPOST * WPOST DRV 

GBOLT # GNUTPL * GWASH * 61 NSUL * TPOST * WPOST DRV 

DRV 
DRV 
DRV 
DRV 

GBOLT , GNUTPL .GWASH * GCLAMP , TPOST * ODPOST * ODPOSR * TTUBE . TDRV 
1FNG1 ♦ TBMLC * T d MSC . W8MLC * WBMSC . TR I BL . TR IBS. WR IBL . Wh I dS DR V 

READ (5.220) HRING.ODRING.IDFNG1* IDFNG2*HFNG1.HFNG2»TRING1*TRING2 DRV 
WRITE ( 6 . 330 ) GBOLT . GNUTPL » GW ASH » GCLAMP , TPOST , ODPOST , ODPOSR , TTUBE , DRV 
lTFNGl.TBMLC. TO mSC.WBMLC* WBMSC, TRIBL.TRIBS.WR IBL.WR IPS.HP IMG, ODRINGDRV 
2* IDFNG1, IDFNo2»HFNG1»HFNG2.TRING1,TPING2 DRV 

DRV 
DRV 
DRV 
DRV 
DRV 
DRV 

RETURN DRV 

DRV 
DRV 
DRV 

(1H1) DRV 

(2I4.6E8. 0.214) DRV 

<9E6.o) DRV 

(46H1***** WEIGHT-COST INPUT *****//lOX»5HKDRV 
1INOP,9X,6HLENGTH*10X.5HWIDTH.9X.6HDLPANL.9X.6HDWPANL.14X. 1HA.14X.1DRV 
2HB.HX.4HICOS/115»6F15.3.I15//10X,5HKINDS»10X,5HTINS1,10X.5HTINS2.DRV 
310X . 5HTINS3 . 10X . 5HPINS1 . 10X . 5HPINS2 . 1 OX .5HPIN53.9X . 6 hMATlID/I 15 .6FDRV 
415.3.115) DRV 

FORMAT ( 65h0***** KIND OF PANEL FLAG* KINDP, WAS NOT PROPERLY ENTEDRV 
1RED. ****♦) DRV 

FORMAT (I8.9L8.0) DRV 

FORMAT (//32X*5HNRIBS.10X.5HCHOR0.9X.6HRADIUS.9X.6HTSKIN1.9X»6HTSKDRV 
l IN2/30X »I7»4>-15.3) DRV 

FORMAT (//31a»6HGINSRT.10X,5HTCORE.10X,5HTEDGE,9X»6HTSKIN1.9X.6HTSDRV 
1KIN2/22X.5F16.3) DRV 

FORMAT (//32X.5HNRIBS,11X.4HHRIB.10X.5HE1RIB.10X»5HE2PIB, 10X.5HE3RORV 


IF ( ICOS.EQ. 0 ) GO TO 190 

READ (5.220) A T ,BT.CT.CF1 .EGTH.ETA 

READ (5.220) Fth,FTS»K1.K2,K3.NPA.OS*STPS 

WRITE (6.340) AT.BT.CT.CF1,EGTH.ETA,FTH.FTS.K1,K2.K3,NPA,0S.STPS 
WRITE (6.350) 

CALL WTTPS 
IF (KLIC.EQ. iOO) 

CALL COSTOT 
RETURN 

FORMAT 
FORMAT 
FORMAT 
FORMAT 


r-ii6 


116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 
) 44 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 



1IB/30X » 17# 4F15. 3//32X* 5HTE0GE # 9X# 6HTSK INI » 10X# 5HT IRlB# 10X# 5HTPRIB# DRV 

210X#5HTWRIB/22X»5F15.3> u . D RV 

290 FORMAT ( //16X »6HGINSRT » 10X # 5HTC0RE » 10X #5HTEDGE# 11X »4hTEXT * llX»4HPEDRV 
1XT,9X,6HTSKIN1#9X,6HTSKIN2/7X,7F15.3> „ DRV 

,300 FORMAT (69H0***** KIND OF STRUCTURE FLAG# KINDS* WAS WOT PRoPFRLY DRV 

1ENTERED. ****♦) DRV 

310 FORMAT < //25X # 5H680LT * 9X * 6HGNUTPL . 1 OX » 5H6WASH . 1 OX » 5 H TC0RN * 1 OX * 5HTPDRV 
10ST#»JX*6HOOPUST/l5X»6Fl5.3//32X,5HLTU8E»iOX*5HTTUBE*10X»5HTFN61#lODRV 
2A*5HTBMLAt 10X*5HTBMSA/22X#5F15.3//24X*6HTOOUBC»9X*6HTDOU8P»9X»6HTPDRV 
3LATE* 10X»5HT SEAL# 9X»bHHBEAM A» 9X»6HWBEAMA/ 15X»6F 15.31 DRV 

320 FORMAT ( //25x #5HGB0LT#9X » 6HGNUTPL » 10X . 5H6WASH#9X» 6HGINSUL* 1<}X# 5HTPDRV 
10ST # 10X # 5HWP0ST/15X# 6F15. 3) DRV 

330 FORMAT ( / / 17X » 5HGP0LT # 9X » 6HGNUTPL » 1 OX » 5HGWASH » 9X » 6HGCLAMP » 1 oX » 5HTPDR V 
10ST # 9X . 6H0UP0ST . 9X » 6H0DP0SR/7X # 7F 15 . 3//25X . 5HTTU6E » 10X # 5HTFNG1 . 10XDRV 
2 # 5HT6MLC # 1 OX # 5HTBMSC » 1 OX » 5HWBMLC » 10X » 5HWBMSC/15X # 6Fl5 . 3//25X » 5HTRIDRV 

3bL»10X*5HTRniS,10X»5HWRlBL#10X,5HWRIBS#10X,5HHRING»9x»6HODRlNG/15XDRV 

4 » 6F 15 .3//24X # 6HIDFNG1 # 9X # 6HIUFNG2 . 10X » 5HHFNG1 # 10X » 5HHFNG2 # 9x » 6HTRIDRV 
5NG1#9X»6HTRI.JG2/15X#6F15.3) _ DRV 

340 FORMAT <//20A»2HAT#13X»2HBT#l3x»2HCT#12X»3HCFl»liX»4HEGTH»l2X»3HETORV 
1A,12X#3MFTH/7X,7F15.3//19X,3HFTS#13X#2HK1#13X,2HK2.13X,2HK3,12X»3HDRV 
2NPA»13X#2H0S#11X*4HSTPS/7X,7F15.3) DRV 

350 FORMAT (36H0***** END OF INPUT ****♦) DRV 

END DRV 
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c 


c 

c 


subroutine AMATL 
common/comtot/ 


1 AT 

♦ BT 

♦ CT 

♦ CFl 

2FTH 

# FTS 

» K 1 

♦ K2 

30S 

rSTPS 

♦ TUNWT 


common/matl/ 



1CPERIM 

♦HEIGHT 

♦ KEY 

♦LENGT 

COMMON/STDHR/ 



1EOP 

♦LaRATE 

♦MATLID 

♦ NN 

2STUHR 

♦YKAtE 



COMMON/WTA/ 



1A 

9 b 

♦CHORD 

♦diabhi 

2DIAPGH 

♦DIApTH 

♦ 


3DLPANL 

♦ DWPANL 

♦EEDGE 

♦E1RIB 

4GB0LT 

♦ GCLAMP 

♦GINSRT 

♦GINSUL 

5HBEAMA 

♦ HFNG1 

♦HFNG2 

♦hplate 

6HRING 

♦ I.vFNGl 

♦ I0FNG2 

♦KINDP 

7LBMLC 

#LoMSA 

♦LBMSC 

♦LCORN 

8LPANL 

♦ LPOST 

♦LRIBL 

♦LRIBS 

9LTUBE 

♦NklBS 

♦ NXA 

♦ NY A 

SODPOSR 

♦ Ot/POST 

#ODRING 

♦ PB M 

SPINS1 

»P1NS2 

♦ PINS3 

♦PPOST 

4PSKIN1 

♦PSKIN2 

♦PTUBE 

♦ R 

STBMLA 

»TuMLC 

♦T0MSA 

♦ TB M SC 

GTDOUdC 

♦toouep 

♦ TEDGE 

♦TFNG1 

$rPOST 

♦ T rvlBL 

♦ TRlbS 

♦TRING1 

* TTUBE 

♦T*RIB 

.T1RI3 

♦T2RIB 

5w8MLc 

♦ Wb M SA 

♦WBMSC 

♦WCORN 

SkkOOUBR 

♦width 

.WPANL 

♦wplate 

SwRIbS 

.wseal 

* WSTFNR 

»2FAS 

COMMON/WTCOS l / 



1 ACWT 

» A>iUV 

♦ AOP (7*7) 

♦ ITL 

2C0SWT 


♦ len 

♦ltuber 

3PEXT 

♦ Ti_XT 

♦ WID 

♦ ZZUB 

REAL LEN, 

LEimG, LENGT. LENGXt 

MARKX » 


FLATX=0 

HEATX=0 

LEN6X=0 

MBASErO 

MARKX-0 

PBASE=0 

PDIE=0 

PEXTKAsO 

PROTX=0 

PSAwX=0 

ouanx=o 

SIZ£X=0 

TOLXSO 

USONX=0 

V«IQTX=G 

ALBASE=.80 

EL=L£NGT 

LENG=LENGT 

PERM=CPERIM 

OUANM=STPS*NPA*MAWT/<LEN*WID) 





aml 

1 




AML 

2 




AML 

3 

♦ EGTH 

♦ Eta 

1 

AML 

4 

♦ K3 

♦ NPA 

9 

AML 

5 




aml 

6 




AML 

7 

♦ WIDT 



AML 

8 




AML 

9 

♦ PI 

♦REFCT 

9 

AML 

10 




AML 

11 




AML 

12 

♦DIAPOH 

♦diargh 

9 

aml 

13 




AML 

14 

♦ E2RIB 

♦E3RIB 

9 

AML 

15 

♦gnutpl 

♦GwASH 

9 

AML 

16 

♦ HPOST 

♦hrib 

9 

AML 

17 

♦KINDS 

♦Lbmla 

9 

AML 

18 

♦ LDOUBR 

♦length 

9 

AML 

19 

♦ LSEAL 

♦lstfnr 

9 

AML 

20 

♦ODFNG1 

♦0QFNG2 

9 

AML 

21 

♦ PCORE 

♦PEDGE 

9 

AML 

22 

♦ PRIB 

♦PSEAL 

9 

aml 

23 

♦RADIUS 

♦ S 

9 

AML 

24 

♦ TCORE 

♦ TCORN 

9 

AML 

25 

♦TPLATE 

♦tplug 

9 

AML 

26 

♦TRING2 

♦TSEAL 

9 

AML 

27 

♦WBEAMA 

♦WBMLA 

9 

AML 

28 

♦ WCORR 

♦wdoubp 

9 

AML 

29 

♦ WPOST 

♦WRIBL 

9 

AML 

30 




AML 

31 




AML 

32 

♦ KK 

♦ KlIC 

9 

AML 

33 

♦ MAWT 

♦ N 

9 

aml 

34 




AML 

35 




aml 

36 

T ♦ MBASE^ 

NPA 


aml 

37 




AML 

38 




aml 

39 




AML 

40 




AML 

41 




AML 

42 




AML 

43 




AML 

44 




AML 

45 




aml 

46 




AML 

47 




AML 

48 




AML 

49 




AML 

50 




aml 

51 




AML 

52 




AML 

53 




AML 

54 




aml 

55 




aml 

56 




aml 

57 




AML 

58 
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thk=height 

AML 

59 



xare=thk*wiot 

AML 

60 



XFACT=12. 

AML 

61 

c 



AML 

62 

c 


MATERIAL IS INSULATION 

AML 

63 



IF (KEY. tO. 0) GO TO 10 

AML 

64 

c 



AML 

65 

c 


MATERIAL IS REUSABLE SURFACE INSULATION 

AML 

66 



IF (KEY.EQ.1D GO TO 20 

AML 

67 

c 



AML 

68 

c 


MATERIAL IS ABLATIVE MATERIAL 

AML 

69 



IF (KEY.tQ.lD GO TO 30 

AML 

70 

c 



AML 

71 



IF ( (MATLlU.LT.l) .OR. (MATLID.GT.15) ) RETURN 

AML 

72 



GO TO <40*290. 35o*360»370»380i390#400#410»420» 

180 *2^0 *430*440 *450) AML 

73 



1* MATLIO 

AML 

74 

c 



AML 

75 

c 



AML 

76 

C*****MATERIAL TYPE IS INSULATION ***** 

AML 

77 


10 

CONTINUE 

AML 

78 



AMUV— 1 ,10 

AML 

79 



COSWT=5.00 

aml 

80 



RETURN 

AML 

81 

C 



AML 

82 

c*****matlkial is reusable surface insulation 

AML 

83 

C 



aml 

84 


20 

CONTINUE 

aml 

85 



AMUV— 1 ,10 

AML 

86 



KC0SWT=7.5U 

aml 

87 



RETURN 

AML 

88 

C 



AML 

89 

c*****matekial type is ablative material 

AML 

90 

c 



aml 

91 


30 

CONTINUE 

aml 

92 



AMUV=1.1U 

aml 

93 



KC0SWT=3.5Q 

aml 

94 



RETURN 

aml 

95 

c 



aml 

96 

C*****MATERIAL type IS ALUMINUM < 7075-Tb ) ***** 

AML 

97 

C 



AML 

98 


40 

CONTINUE 

AML 

99 



IF (MATLIO. E^.l) mbase=alrasl 

aml 

100 



GO TO (50*t>0.100* 130*140* 150*160*170)* KEY 

AML 

101 

c 



AML 

102 

c 


MATERIAL FORM is FASTENER 

AML 

103 

c 



aml 

104 

c 



aml 

105 


50 

CONTINUE 

AML 

106 

c 


ANALYSIS ASSUMES FASTENER IS A BOLT 

AML 

107 



AMUV=1,1 

AML 

108 



PBASE=21.00 

aml 

109 



IF (MATLIO. GT.l) PBASE=XFACT*M8ASE 

aml 

110 

c 



AML 

111 



GO TO 47u 

aml 

112 

c 


MATERIAL FORM IS HONEYCOMB 

AML 

113 

c 


ANALYSIS IS BASED ON THE 5052 ALUMINUM ALLOY* 

A 3/16 INCH Cell aml 

114 

c 


SIZE* AND A .002 INCH FOIL THICKNESS 

aml 

115 


60 

CONTINUE 

aml 

116 
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AMUVsl.l 
CELLS. 1875 
QUANMrQUANM*AMuV 
QUANMsQUANM/ (144 . *PCORE ) 

IF (QUANM.LT. 600. ) GO TO 70 
IF (QUANM.GE. 12000. ) GO TO 60 
PS1.43 
PSAWXs.25 
GO TO 90 
70 CONTINUE 
P=1.72 
PSAwxs. 45 
GO TO 90 
80 CONTINUE 
P=1.30 
PSAwXs,22 
90 CONTINUE 

PCELLs.3382*cELL**-.797 

PINFT2=PCELL*P/1.30 

SAWXSPSAWX/(144.*PC0RE) 

PBASLSPINFT2/ ( 144 . *PCORE ) +SAWX 
GO TO 460 

MATERIAL FORM IS FOIL* SHEET# OR PLATE 

ANALTSIS IS bASED ON 7075 AND 7079 ALUMINUM ALLOTS IN THE 
FOLLOWING TEMPERS -T6* -T651 
100 CONTINUE 
AMUVSl.l 

quanmsquanmwamuv 

IF ( THK.GE . • 1875) GO TO 110 

PBASEs-13.82*THK+1.218 

IF (THK.GE. .044) PBASEs-.641*THK+.638 

WlOTXs,010b*wlDT-.5lU 

IF (wIDT.LE.48. ) WIDTXSO 

PBASEsPBASE+* IDTX 

PR0TXS-2.182*THK+.187 

IF (PROTX.LT.O) PROTX=0 

TOLXs ,03b 

IF (THK.LT. .154) TOLXs. 046 
PEXTRAsPROTX+TOLX 
GO TC 120 
110 CONTINUE 

PBASEs-, 00642*THK+ . 536 
WlDTXS .00131*^1 DT-.O 327 
IF (WIDT.LE.^5. ) WIDTXSO 
PBASEsPBASE+wlDTX 
IF (THK.GE. .250) FLATXs.Ol 
USONXs.Ob 

IF (THK.cT.1.5) USONXs.08 
IF (THK.LT..S) USONXs.025 
PEXTRAsFLATX+USONX 
120 CONTINUE 

QUANXs,1486*0UANM**-, 000115 

IF (QUANM.lT.3500. ) QUANX=113100 ,*QUANM**-1 ,667 
IF (QUANM.lT.110U. ) QUANXs-.000516*QUANM+1.69 

markxs.oi 

packxso 


AML 117 
AML 118 
AML 119 
AML 120 
AML 121 
AML 122 
AML 123 
AML 124 
AML 125 
AMl 126 
AML 127 
AML 128 
AML 129 
AML 130 
AML 131 
AML 132 
AML 133 
AML 134 
AML 135 
AML 136 
AML 137 
AML 138 
AML 139 
AML 140 
AML 141 
AML 142 
AML 143 
AML 144 
AML 145 
AML 146 
AML 147 
AML 148 
AML 149 
AML 150 
AML 151 
AML 152 
AML 153 
AML 154 
AML 155 
AML 156 
AML 157 
AML 158 
AML 159 
AML 160 
AML 161 
AML 162 
AML 163 
AML 164 
AML 165 
AML 166 
AML 167 
AML 168 
AML 169 
AML 170 
AMl 171 
AML 172 
AML 173 
AML 174 
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v 



o o o o o r> r> r> n n 


IF (UUANm.LT. 4000. > PACKX=.013 
IF (UUANM.LT. 2000. ) PACKX=.025 
pextra=pextra+quanx+markx+packx 
GO TO 460 

MATERIAL FORM IS WIRE. ROD, OR BAR 

ANALYSIS IS BASED ON 7075 ALLUMINUM ALLOY IN THE FOLLOWING 
TEMPERS -16, -T65I 
130 CONTINUE 
AMUV=1.10 

PBASE=.971b*XARE**-.U521 

UUANM=QUANM*aMUV 

UUANX=0 

IF (UUANM.LT.5000. ) QUANX=.025 

IF (UUANM.LT. 1000. ) QUANX=1 3 . 98*0UANM**-. 742 

IF (UUANM.LT.25. ) QUANX=1.30 

PEXTRArQuANX 

GO TO 460 

MATERIAL FORM IS EXTRUSION 

ANALYSIS IS BASED ON 7075 AND 7079 ALUMINUM ALLOYS IN THE 
FOLLOWING TEMPERS -T6. -T6510, -T6511 
140 CONTINUE 
AMUV=1.1U 

DIAsAMAXKwI UT, HEIGHT) 

WTPFTsl.**XAnt 

K=P£KM/WTPFT+.5 

uuanm=ouanm*amuv 

IF (K.LE.l) P=. 890 

IF (K.EQ.2.AnD.niA.LE.3.5> Ps.9706*DIA**(-. 05003) 

IF (K .EO . 2 . AwD.Dl A. GT .3.5) Ps.910 

IF (K.EG.3.AND.DIA.LE.4.5) P=1 . 074*DI A** (-. 091181 ) 

IF (K.E0.3.AND.DIA.GT.4.5) P=0.8265*DIA**( .08922) 

IF (K.GE.4.A.K.LE.5.AND.0IA.LE.4.5) P=1 ,1510*DIA** (-.07893) 

IF (K.GE.4.A.K.LE.5.AND.DIA.GT.4.5) Pso .7522*01 A** (. 19544 > 

IF (K.GE.6.A.K.LE.8.AN0.DIA.LE.4.5) Psi .2699*DIA**(-. 09497) 

IF (K.GE.6.A ,K ,LE , 8. AND, DI A.GT .4,5) P=0. 6576*DIA**( .32524) 

IF (K.GE.9.A.K .LE.11.AND.DIA.LE.4.5) Psi . 3904*01 A** (-. 10852 ) 
IF (K.GE.9.'*.K.LE.11.AND.DIA.GT.4.5> Ps0.8826*DIA** ( .20352) 

IF (K. GE. 12. A. K.LE. 14. AND.DIA.LE. 3. 5> Psi . 5224*01 A** (-. 14045 ) 
IF (K.GE.12.A.K.LE.14.AND.DIA.GT.3.5) Ps.9888*DIA** ( .20075) 

IF (K.GE.IS.a.k , LE . 20 , AND.DIA.LE .2.5) P=1 .7219*DI A** ( -.23304 ) 
IF (K.GE.15.A.K.LE.20. AND.DI A.6T • 2.5 ) Psi , 1685*DIA** (. 17168) 
IF (K.GE.21.A.K.LE.25.AND.DIA.LE.2.5) Psi. 8625*DIA**(-. 12561 ) 
IF (K.GE.21.A.K.LE.25.AN0.DIA.GT.2.5) Psi ,4733*DIA**( , 12607) 
IF (K.GE.26.A.K.LE.30. AND • DI A , LE .2.5) Ps2. 0931*DI A** ( -. 09990 > 
IF (K.GE.26.A.K.LE.30.AND.DIA.GT.2.5) Psi.7802*OlA**( .07680) 
IF (K. GE. 31. A.K.LE. 35. AND.DIA.LE. 2. 5) Ps2.5361*DIA**(-. 12580) 
IF (K.GE.Sl.A.K.LE. 3b, AND ,01 A ,GT .2.5) Ps2. 0320*DI A** ( , 11606) 
IF (K.GT.35) PS2.500 
LENGXsO 


AML 175 
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AML 177 
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AML 188 
AML 189 
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AML 203 
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AML 207 
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AML 212 
AML 213 
AML 214 
AML 215 
AML 216 
AML 217 
AML 218 
AML 219 
AML 220 
AML 221 
AML 222 
AML 223 
AML 224 
AML 225 
AML 226 
AML 227 


IF (EL. GE. 300. .A. EL. LT. 456. .AND. WTPFT.LT. .250) LENGXs.Ol AML 228 

IF ( EL ,GE • 300 . , A .EL.LT, 456, • AND, WTPFT . GE. .250 . A , WTPET ,LT. .499 ) LENAML 229 


1GXS.005 AML 230 

IF (EL, GE. 300. . A, EL.LT. 456. .AND. WTPFT. GE.. 499) LENGX=o AML 231 

IF <EL.GE. 456. .AND.WRPFT.LT. .250) LENGX=.017 AML 232 
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IF (EL.GE.45u. .AND.WTPFT.GE. .499) LENGXr.005 

AML 

233 



IF (tL.GE. 45o.. A. WTPFT.GE.. 250. AND. WTPFT.LT. .499) lENGX=.01 

AML 

234 



PBASE=P*LENGa 

AML 

235 



PDIE=115.8*EXP( ,2188*DIA) /QUANM 

AML 

236 



KQUAN=14020.*EXP( .2163*DIA) 

AML 

237 



IF (QUANM. 6E.RQUAN) POIE=0 

AML 

238 



QUANX=-.li0000l8*QUANM+.024 

AML 

239 



IF (UUANM.LT. 15000. ) QUANX=-. 0000153*OUANM+. 195 

AML 

240 



PACKX-, Oil 

AML 

241 



TOLX=.03 

AML 

242 



PEXTRA=PDlE+QUANX*PACKX+TOLX 

AML 

243 



GO TO 460 

AML 

244 

c 



AML 

245 

c 


MATERIAL FORM IS TUBING 

AML 

246 


150 

CONTINUE 

AML 

247 

> 


GO TO 480 

AML 

248 

c 



AML 

249 

c 


MATERIAL FORM JS FORGING 

AML 

250 


160 

CONTINUE 

AML 

251 



GO TO 480 

AML 

252 

c 



AML 

253 

c 


MATERIAL FOR*. IS CASTING 

AML 

254 


170 

CONTINUE 

AML 

255 



GO Tc 480 

AML 

256 

c 



AML 

257 

C*****MATEKIAL TYPE IS ALLOY STEEL (4130# 4340) ***** 

AML 

258 

C 



AML 

259 


180 

CONTINUE 

AML 

260 



M8ASt.= .4U 

AML 

261 



GO TO ( 190.4u.200.230.40.40.40.40) » KEY 

AML 

262 

C 



AML 

263 

C 


MATERIAL FoRe. IS FASTENER 

AML 

264 

C 



AML 

265 

c 


ANALYSIS ASSUMES FASTENER IS A BOLT 

AML 

266 


190 

continue 

AML 

267 



AMUV-l . 1 

AML 

268 



PBASE=13.00 

AML 

269 



GO TO 470 

AML 

270 

c 



AML 

271 

c 


MATERIAL FORM IS FOIL* SHEET. OR PLATE 

AML 

272 

c 



AML 

273 

c 


ANALYSIS IS BASED ON AN AVERAGE OF HOT ROLLED NORMALIZED AND 

AML 

274 

c 


HOT ROLLED AnNEALEO AIRCRAFT QUALITY 4130 ALLOY STEEL. AND ON 

HOT AML 

275 

c 


ROLLED ANNEALED AIRCRAFT QUALITY 4340 ALLOY STEEL 

AML 

276 


200 

CONTINUE 

AML 

277 



AMUV=1.1 

AML 

278 



QUANM=QUANM*AMUV 

AML 

279 



IF (THK.GE..250) GO TO 210 

AML 

280 



PBASE=1.00 

AML 

281 



IF (THK.GE. .010) PBASEs.071*THK**-.546 

AML 

282 



IF (THK.GE.. 050) PBASE=.0968*THK+.357 

AML 

283 



PROTX=-2 . 182*THK*. 187 

AML 

284 



IF (PROTX.LT. 0) PROTXSQ 

AML 

285 



GO TO 220 

AML 

286 


210 

CONTINUE 

AML 

287 



PBAS£s»0Q6*THK+ ,439 

AML 

288 

y 


MARKX=-.0l5*THK+.03 

AML 

289 


220 

CONTINUE 

AML 

290 
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quanx=o 

IF (QUANM.LT. 10000. > QUANX=.027 
IF (QUANM.LT.3U0.) QUANX=2 . 059*QUANM**-,5304 
IF (QUANM.LT. 25. ) QUANX=.50 
PEXTRA=QuANX+MaRKX+PHOTX 
GO TU 470 

MATERIAL FORM IS WIRE# ROD# OR BAR 

ANALTSIS IS BASED ON AN AVERAGE PRICE FOR HOT AND C<>LD ROLLED 
AIRCRAFT QUALITY 4340 ALLOY STEEL 
230 CONTINUE 
AMUV=1.1 

quanm=quanm*amuv 

PBASE=.36l 

IF (XARE.LT.o.) PBASE=.442 
quanx=o 

IF (QUANm.LT. 10000. ) QUANXs.027 

IF (QUANm.lT.300. ) OUANX=2.059*QUANM**-.5304 

IF (QUANM.LT.25. ) QUANX=.50 

MARKX=- . 0 1 5*SQRT ( X ARE ) + . 0 3 

PEXTRA=QuANX+MARKX 

GO TO 470 

♦♦♦♦♦MATERIAL TYPE IS STAINLESS STEEL <30l» 17-7PH) ♦♦♦♦* 

240 CONTINUE 
MBASE=.9b 

GO TO (2b0.40.260#40#40#40»40#40) » KEY 

MATERIAL FORM IS FASTENER 

ANALYSIS ASSUMES FASTENER IS A BOLT 
250 CONTINUE 
AMUV=1.1 
PBAS£=39.00 
GO 10 470 

MATERIAL IS FOIL# SHEET# OR PLATE 

ANALYSIS IS 6ASE0 ON AN AVERAGE PRICE FOR TYPE 301 And 17-7PH 
STAINLESS STcEL 
260 CONTINUE 
AMUV-1 • 1 

QUANM=QUANM*AMUV 

IF (THK.0E..1875) GO TO 270 

PBASE=.892*ThK^-,0654 

ouanx=o 

IF (QUANM.LT. 2000. ) QUANX=.939*EXP(-.00206*QUANM) 

IF (QUANM.LT. 100. ) QUANX=-.007^QUANM+i .475 
PR0TX=-2 . 182^THK4 .187 
IF (PROTX.LT.O) protx=o 

pextra=quanx+protx 

GO TO 280 
270 CONTINUE 
PBASE— • 832 

IF (THK.LT..575) PBASE=-.3867*THK+,977 

quanx=o 
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IF (QUANM.LT. 10000, ) QUANXs.055 

IF (UUANM.LT.1500. ) GUANX=, 8738*£XP (-, 0012*OUANM) 
IF (QUANM.LT. lOO. ) QUANX=-*0U7*QUANM+1.475 
markx=.oi 

PEXTKA=QuANX+MARKX 
280 CONTINUE 
GO TO 470 

♦♦♦♦♦MATERIAL TYPE IS TITANIUM (TI-6AL-4V) ***** 

290 CONTINUE 
MBASE=8.50 

uO TO (300.4C.310* 340*40 *40*40,40). KEY 

MATERIAL FORM IS FASTENER 

ANALYSIS ASSUMES FASTENER IS A BOLT 
300 CONTINUE 
AMUV— 1 • I 
PBASES104.00 
GO TO 470 

MATERIAL FORM is FOIL. SHEET, OR PLATE 

ANALYSIS IS oASED ON THE 6AL-4V TITANIUM ALLOY 
310 CONTINUE 
AMUV=1.1 

uUANMrOUANM*AM(jv 

IF ( THK.QE. . 1875) GO TO 320 

PBAS£=6.U0 

LENGX=.0124*lENG-. 93S 
IF (LENG.LT. 76.) LENGX=0 
WlDfX=4.12l*'_XP< ,0056*WI0T) 

THKX=.218*Th»v**-.995 
IF (THK.lT. . 018) THKXS12.00 
PBASfcrPBASE'.uENGX+WlDTX+THKX 
QUAnx=-.50 

IF (QUANM.LT. 10000. ) QUANX=- . OOOlOfi*OUANM+ . 5H0 
IF <QuANM.i_T .200. ) QUANXS.75 
TOLX=, 11o*Tmk**-. 705 
IF ( THK. W T. . jlo) TOLX=3.00 
HEAtx= 2.102*LXP(-5.502*THK) 
PEXTRA=QuANX+TOLX+HEATX 
GO TO 330 
320 CONTINUE 
PBASL=3.25 

LENGX=. 00138*LENG-. 0875 

IF (LENG.LT. 76.) LENGX=0 

*IOTX=1,294*«IDT**-.0708 

THKX=.70V*THK**-,579 

IF (THK.LT. .167) THKXS2.00 

PBAS£=PBaSE*lENGX+WIOTX+THKX 

QUAnasO 

lF (wuANM.LT. 4000.) QUANXr-,000184*QUANM*.8ll 
IF (QUANM.lT. 2O0.) QUANXS 1.0.0 
FLATXs. 35 

HEATxz-, 096*THK-fl .108 
USONx=. 1 3 
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PEXTRA=OUANX+FLATX+HEATX+USONX 


AML 

407 

330 

continue 



AML 

408 


SO TO 470 



AML 

409 

C 




AML 

410 

C 

MATERIAL FORM 

IS WIRE# ROD# OR BAR 


AML 

411 

C 




AML 

412 

C 

ANALYSIS IS BASED ON THE 6AL-4V TITANIUM ALLOY 

AML 

413 

340 

CONTINUE 



AML 

414 


PBASE=2.10 



AML 

415 


AMUV=1.1 



AML 

416 


QUANM=QUANM*AMUV 


AML 

417 


LENGX=.0058*LENG*.084 


AML 

418 


SIZEX=3.il 



AML 

419 


IF (THK.GE..b) SlZEX=2.292*THK**-.444 


AML 

420 


pbase=pbase+lengx+sizex 


AML 

421 


quanx=o 



AML 

422 


IF (QUANM.LT. 

4000.) QUANX=-.000184*QUANM+. 

811 

AML 

423 


IF (QUANM.LT. 

200.) QUANX=1,00 


AML 

424 


TOLX=,25 



AML 

425 


HEATX=1.Z2 



AML 

426 


IF (THK.GE.l. 

) HEATX=.528*THK**-,3655 


AML 

427 


USOnX=,10 



AML 

428 


PEXTKA=QUANX*TOLX+HEATX+US0NX 


AML 

429 


GO TO 470 



aml 

430 

C 




aml 

431 

C*****MATERIAL TYPt 

IS INCONEL 718 ***** 


AML 

432 

350 

CONTINUE 



AML 

433 


MBASE=6.U0 



aml 

434 


00 TU 40 



aml 

435 

t 




AML 

436 

c*****material TYPE 

IS HASTELLOY X ***** 


AML 

437 

360 

CONTINUE 



aml 

438 


MBASE=15.00 



aml 

439 


GO TO 40 



AML 

440 

C 




AML 

441 

c*****material TYPE 

IS RENE 41 ***** 


AML 

442 

370 

CONTINUE 



AML 

443 


MBASE=8.00 



AML 

444 


GO TO 40 



AML 

445 

c 




AML 

446 

C*%*** MATERIAL TYPE 

IS TO NICR ***** 


AML 

447 

380 

continue 



AML 

448 


MBASE=105.00 



AML 

449 


GO TO 40 



AML 

450 

C 




AML 

451 

C*****MATERIAL TYPE 

IS COATED COLUMBIuM ALLOY Cb 

752 ***** 

aml 

452 

390 

CONTINUE 



aml 

453 


MBASt=110.00 



AML 

454 


GO TO 40 



aml 

455 

C 




aml 

456 

c*****matekial type 

IS COATED COLUMBIUM ALLOY C 

129Y ***** 

AML 

457 

400 

continue 



AML 

458 


M8ASE=110.00 



AML 

459 


GO TO 40 



AML 

460 

c 




AML 

461 

C*****MATERIAL TYPt 

IS HAYNES 188 ***** 


AML 

462 

4i0 

CONTINUE 



AML 

463 


MBASL=15.00 



AML 

464 
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<50 TO 40 
C 

C*****MAT£RIAL type is coateo tantalum 

420 CONTINUE 

M8ASE=90.00 
<50 TO 40 
C 

C ***** MATERIAL TYPE IS MAGNESIUM ***** 
430 CONTINUE 
MBASE=1.50 
GO TO 40 
C . 

e*****MATERIAL TYPE IS BERYLLIUM ***** 
, 440 CONTINUE 

MBA$E=150.U0 
GO TO 40 
C 

C*****MATERIAL TYPE IS L-6U5 ***** 

450 CONTINUE 

MBASE=15.00 
GO TO 40 


DETERMINATION OF TOTAL PRICE FOR 
460 CONTINUE 

PBASE=PBASt BASE/ALBASE 
470 CONTINUE 

IF (PBASt.EO.O) PEXTRArO 
COSwT-PBaSL+PExTRA 
480 CONTINUE 
kETURN 
END 
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c 

c 

c 
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SUBROUTINE ASTQHR AST 1 

AST 2 

COMMON /LINK/ NStCT»TC#TS»TSKINl»TSKlN2,TINSl»TINS2»TrNS3 AST 3 

COMMON/MATL/ AST 4 


1CPERIM 

»HEIGHT 

» KE Y 

»lengt 

♦ WIDT 



AST 

5 

COMMON/STDHR/ 






AST 

6 

1E0P 

#LARATE 

#MATLIU 

»NN 

»PI 

♦Refct 

9 

AST 

7 

2STDHR 

»vrate 






AST 

8 

COMMON/WTA/ 






AST 

9 

1A 

# B 

# CHORD 

•DIABH1 

♦DIAPOH 

♦djargh 

9 

AST 

10 

20IAPGH 

#DIAPTH 

► 





AST 

11 

3DLPANL 

»OwPANL 

# EEDGE 

»E1RIB 

♦E2RIB 

,E3RIB 

9 

AST 

12 

46B0LT 

»gclamp 

»GINSRT 

.ginsul 

♦GNUTPL 

,GWASH 

9 

AST 

13 

5H8EAMA 

#hfngi 

» HFNG2 

♦hplate 

# HPOST 

♦ hrib 

9 

AST 

14 

6HRING 

# IuFNGl 

# IQFNG2 

# K INDP 

# KINDS 

♦LbMlA 

9 

AST 

15 

7L8MLC 

»lbmsa 

#LBMSC 

.LCORN 

♦LOOUBR 

♦length 


AST 

16 

8LPANL 

» LPOST 

»LRIBL 

»LRIBS 

»LSEAL 

, lstfnr 

9 

AST 

17 

9LTU8E 

» NR IBS 

#NXA 

#NYA 

♦odfngi 

♦ 0QFNG2 

9 

AST 

18 

40DP0SR 

» OuPOST 

#odring 

♦ PBM 

»PCORE 

♦PEDGE 

9 

AST 

19 

SPINSI 

#PINS2 

» PINS3 

# PPOST 

#PRIB 

♦pseal 

9 

AST 

20 

SPSKINl 

»PSKIN2 

#PTUBE 

»R 

♦RADIUS 

♦ s 

9 

AST 

21 

$tbmla 

#T6MlC 

♦ TBMSA 

#TBMSC 

♦TCORE 

.TCORN 

9 

AST 

22 

STDOUBC 

» TDOUBP 

#TEDGE 

#tfngi 

♦TPLATE 

* TpLUG 

9 

AST 

23 

STPOST 

»TRIBL 

»TRIBS 

» TRING1 

♦TRING2 

♦tseal 

9 

AST 

24 

ST TUBE 

♦ T*RIB 

.T1RIB 

♦ T2RIB 

♦wbeama 

.W0MLA 

9 

AST 

25 

SWBMLC 

»Wt3MSA 

# W8MSC 

# WCORN 

♦ WCORR 

♦wdoubp 

9 

AST 

26 

SWDOUBR 

»WiDTH 

# WPANL 

♦wplate 

♦WPOST 

.WRIBL 

9 

AST 

27 

SMRIBS 

# tfSEAL 

» WSTFNR 

#2FAS 




AST 

28 

COMMON/WTCOST/ 






AST 

29 

1ACWT 

» A.^UV 

# AOP (7.7) 

# ITL 

♦ KK 

♦ »<LIC 

9 

AST 

30 

2COSWT 

#KT 

# LEN 

#LTUBER 

♦ MAWT 

♦ N 

9 

AST 

31 

3PEXT 

. Tc.Xt 

# WID 

# ZZUB 




AST 

32 








AST 

33 

U I MENS I ON 

FMaT (15) 






AST 

34 








AST 

35 

REAL LARATE ,MAWT 

# 

LBMLA #LHMLC .LBMSA 

♦LBMSC 

, LCORN 

AST 

36 

peal looubr .len 

♦length # 

LPANL » LPOST #LRIdL 

♦lribs 

•LSEAL 

AST 

37 

real lstfnr .ltube 

#ltuber . 

NXA »NYA 



AST 

38 

real lburp 

♦ LENGT 

# LROUT , 

LSAW »LSCRIB » NHOLE 



AST 

39 








AST 

40 

DATA FMAT 







AST 

41 

1/ 1.0# 4.2 

# <4.2# 4. 

0# 4.2# 5. 

0# 6.0# 6, 

0# 4.2# 6.0# 3.8# 4. 

o 

• 

* 

% 

CVJ 

AST 

42 

2 5,0# 4.2 

/ 






AST 

43 


SDHR05=0 

SDHR08=0 

SDMR10=0 

SOHRllsO 

SDHR12=0 

SOHR14=0 

SDHR15=0 

SDHR16=0 

SDHR17=0 

SDHR18=0 

SDHR26=0 

SDMR32=0 

SDHR3b=0 

S0HR37=0 


AST 44 
AST 45 
AST 46 
AST 47 
AST 48 
AST 49 
AST 50 
AST 51 
AST 52 
AST 53 
AST 54 
AST 55 
AST 56 
AST 57 
AST 58 
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SDHR38=0 
5DHK39=0 
SDHR40=0 
SDHR41=0 
SDHR43=0 
SDHR48=0 
SDHR53=0 
SDHR7 1=0 
SOHR75=0 
SDHRb0=0 
SOHR62=0 
SDHR03=O 
SDHK65=0 
SOHRy2=0 
bOHR97=0 
STDHR=0 

IF (22UR.GT.U) GO TO 10 

AMUV-Q 

CAREAsO 

clamp=o 

COSwT=0 

CPERIM=0 

OHOLErO 

OIA=u 

HEl6HT=0 

LARATE=0 

LBURRrO 

LEN(,r =0 

LROUT=0 

LSAw=0 

LSCkIB=0 

NANGlE=0 

nholl=o 

NSUKF=2 

KEFCT=0 

sarea=o 

vrate=o 

WIOT=0 

vOL=y 

10 continue 

IF (MATLIC.GI . 0 . AND. MATLID.LT . 16 ) GO TO 20 
E0P=jl . 

RETURN 

C 

20 CONTINUE 

IDENTIFICATION OF MATERIAL TYPE AND ASSIGNMENT OF 
MATERIAL COMPLEXITY FACTOR F 

F=FMAT(MaTLIu) 

RELATE DETAIL PART TO MANUFACTURING OPERATIONS EQUATION CALLOUT 

IF (KK.EQ.9) GO TO 60 
IF (KK.EQ.10) GO TO 70 

IF (KK.EQ.11) GO TO 00 

IF (KK.EQ.12) GO TO 90 

IF (KK.EQ.15) GO TO 100 


AST 59 
AST 60 
AST 61 
AST 62 
AST 63 
AST 64 
AST 65 
AST 66 
AST 67 
AST 68 
AST 69 
AST 70 
AST 71 
AST 72 
AST 73 
AST 74 
AST 75 
AST 76 
AST 77 
AST 78 
AST 79 
AST 80 
AST 81 
AST 82 
AST 83 
AST 84 
AST 85 
AST 86 
AST 87 
AST 88 
AST 89 
AST 90 
AST 91 
AST 92 
AST 93 
AST 94 
AST 95 
AST 96 
AST 97 
AST 98 
AST 99 
AST 100 
AST 10i 
AST 102 
AST 103 
AST 104 
AST 105 
AST 106 
AST 107 
AST 108 
AST 109 
AST 110 
AST 111 
AST 112 
AST 113 
AST 114 
AST 115 
AST 116 
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IF (KK.EQ.20) GO TO 110 

IF (KK.EG.21) GO TO 120 

IF (KK.EQ.22) GO TO 130 

IF (KK.EQ.23) GO TO 140 

IF (KK.EQ.25) GO TO 150 

IF (KK.EQ.26) GO TO 160 

IF (KK.EQ.27) GO TO 170 

IF (KK.EQ.29) GO TO 180 

IF (KK.EQ.30) GO TO 190 

IF (KK.EQ.31) GO TO 200 

IF (KK.EQ.32) GO TO 210 

IF (KK.EQ.33) GO TO 220 

IF (KK.EQ.40) GO TO 230 

IF (KK.EQ.4l ) GO TO 240 

IF (KK.EQ.42) GO TO 250 

IF (KK.EQ.43) GO TO 260 

IF (KK.EQ.50) GO TO 270 

IF (KK.EQ.51) GO TO 280 

IF (KK.EQ.52) GO TO 290 

IF (KK.EQ.53) GO TO 300 

IF (KK.EQ.55) GO TO 310 

IF (KK.EQ.56) GO TO 320 

IF (KK.EQ.57) GO TO 330 

IF (KK.EQ.60) GO TO 340 

IF (KK.EQ.61) GO TO 350 

IF (KK.EQ.b2) GO TO 360 

IF (KK.EQ.63) GO TO 370 

IF (KK.EQ.65) GO TO 380 

IF (KK.EQ.bb) GO TO 390 

IF (KK.EQ.b7) GO TO 400 

IF (KK.EQ.bB) GO TO 410 

IF (KK.EQ.69) GO TO 420 

IF (KK.EQ.70) GO TO 430 

IF (KK.EQ.75) GO TO 440 

IF (KK.EQ.76) GO TO 450 

IF (KK.EQ.79) GO TO 460 

IF (KK.EQ.0O ) GO TO 470 

IF (KK.EQ.61) GO TO 480 

IF (KK.EQ.02) GO TO 490 

IF (KK.EQ.83) GO TO 500 

IF (KK.EQ.84) GO TO 510 

IF (KK.EQ.85) GO TO 520 

IF (KK.EQ.86) GO TO 530 

IF (KK.EQ.88) GO TO 540 

IF (KK.EQ.91) GO TO 550 

IF (KK.EQ.92) GO TO 560 

IF (KK.EQ.93) GO TO 570 

IF (KK.EQ.94) GO TO 580 

IF (KK.EQ.95) GO TO 59U 

IF (KK.EQ.96) GO TO 600 

IF (KK.EQ.97) GO TO 610 

IF (KK.EQ.98) GO TO 620 

IF (KK.EQ.199) GO TO 630 
EOP=l. 

GO TO 880 


MANUFACTURING OPERATIONS EQUATION 
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AST 150 
AST 151 
AST 152 
AST 153 
AST 154 
AST 155 
AST 156 
AST 157 
AST 158 
AST 159 
AST 160 
AST 161 
AST 162 
AST 163 
AST 164 
AST 165 
AST 166 
AST 167 
AST 168 
AST 169 
AST 170 
AST 171 
AST 172 
AST 173 

CALLOUT AST 174 
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30 continue 

ASSIGN 30 TO Jj 

nN=NN+1 

KEY=3 

LENGT=LPANi_+DLPANL 
WlOT=WPANL+OLPANL 
HEIGH, T=TSK INI 
L8URR=2.*CPERlM 
LR0UT=CPERIM/3. 

OHOLEsTSKlNl 

DIAsDIARHI 

nhole=nxa 

GO TO (640»820*650*750»690,780»670»720*860»870) » NN 
40 CONTINUE 

ASSIGN 40 TO JJ 

NN=NN+1 

KEY=3 

LENGT=LPaNl+DLPANL 

*IDT=WPAnL+Di_PANL 

HEIGHT=TSKIN1 

L8URR=2.*CPERlM 

LR0UT=2.*PI 

□H0L£=TSMN1 

uIA=OIAPOH 

NH0Lt.=4. 

GO TO ( 640 * 820*650 » 750 » 780*840 * 690*670 * 720*860*870 ) * NN 

so continue 

ASSIGN 50 TO JJ 

nnsnn+i 

KEY=3 

lengt=lpanl+dlpanl 

rtIDT=WPANL+DLPANL 

HEIGHT=TSKINi 

LBURK=2.*CPERlM 

i_rout=pi*oopost 

oH0LE=TSKIN1 

oia=diargh 
NHOL fc=l . 

GO TO (640, 820#65Q»750»780, 690*670*720*860*870) * NN 

FASTENERS 

60 CONTINUE 

ASSIGN 60 TO JJ 

NN=NN+1 

KEYsl 

GO TO (860*870) » NN 

ASSEMBLY* CORRUGATED PANEL (KIN0P=1) 

70 CONTINUE 

ASSIGN 70 TO JJ 

NN3NN+1 

lengt=length 

Ii*IDT=WIDTH 

HEIGHT=SQRT(RADIUS**2-(CH0RD/2. )**2)TTSKIN1 


AST 175 
AST 176 
AST 177 
AST 178 
AST 179 
AST 180 
AST 181 
AST 182 
AST 183 
AST 184 
AST 185 
AST 186 
AST 187 
AST 188 
AST 189 
AST 190 
AST 191 
AST 192 
AST 193 
AST 194 
AST 195 
AST 196 
AST 197 
AST 198 
AST 199 
AST 200 
AST 201 
AST 202 
AST 203 
AST 204 
AST 205 
AST 206 
AST 207 
AST 208 
AST 209 
AST 210 
AST 211 
AST 212 
AST 213 
AST 214 
AST 215 
AST 216 
AST 217 
AST 218 
AST 219 
AST 220 
AST 221 
AST 222 
AST 223 
AST 224 
AST 225 
AST 226 
AST 227 
AST 228 
AST 229 
AST 230 
AST 231 
AST 232 
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60 TO ( 640 » 840 , 670 » 770 » 720 » 860 » 880 ) * 
UPPER SKIN, CORRUGATED PANEL 
80 CONTINUE 

IF (KINDS. EQ.O) GO TO 30 
IF (KINDS. EQ.l) 60 TO 30 
IF (KINDS. EQ. 2) 60 TO 40 
IF (KINDS. £0.3) 60 TO 50 
60 TO 88U 

CORRUGATIONS, CORRUGATED PANEL 


NN AST 233 

AST 234 
AST 235 
AST 236 
AST 237 
AST 238 
AST 239 
AST 240 
AST 241 
AST 242 
AST 243 
AST 244 
AST 245 
AST 246 
AST 247 
AST 248 
AST 249 
AST 250 
AST 251 
AST 252 
AST 253 
AST 254 
AST 255 
AST 256 
AST 257 
AST 258 
AST 259 
AST 260 
AST 261 
AST 262 
AST 263 
AST 264 
AST 265 
AST 266 
AST 267 
AST 268 
AST 269 
AST 270 
AST 271 
AST 272 
AST 273 
AST 274 
AST 275 
AST 276 
AST 277 
AST 278 
AST 279 
AST 280 
AST 281 
AST 282 
AST 283 
AST 284 
AST 285 
AST 286 
AST 287 
AST 288 
AST 289 
AST 290 


90 CONTINUE 

ASSIGN 90 TO JJ 

NNSNN+1 

KEY=3 

LEN6T=LPANL 

wiot=wcorr 

HEl6HT=TSKINii 

LRURR=2.*CPERIM 

LSAW=2. 8*NRIbS*SURT(RADIUS**2-( CHORD/2 )**2) 

60 TO (640, 820, 650, 7b0»710, 790.670, 720, 860, 870) » NN 

ASSEMBLY, R S I PANEL (KINQP = 4) 

100 CONTINUE 

ASSIGN 100 TO JJ 
NNSNN+l 
LENGT=LENGTH 
WIDT=WIDTH 

HE16HT=TC0RE+TSKIN1+TSKIN2+TEXT 

NH0L£=NXA 

GO TO (640. 840, 840, 8U0» 670, 770, 720, 660, 840, 860, 880) » NN 

ASSEMBLY. HONEYCOMB PANEL (KINDP=2) 

110 CONTINUE 

ASSIGN HO TO JJ 
NNSNN+1 
LENGT=LENGTH 
WIDT=WIDTH 

HEI6HT=TC0RE+TSKIN1+TSKIN2 

nhole=nxa 

60 TO (640,840.840,800,670,770,720,860,880), NN 
UPPER SKIN, HONEYCOMB PANEL 
120 CONTINUE 

IF (KINDS. EQ.O) 60 TO 30 
IF (KINDS. EQ.l) 60 TO 30 
IF (KINDS. EO. 2) GO TO 40 
IF (KINDS. EQ. 3) GO TO 50 
GO TO 880 

LOWER SKIN, HONEYCOMB PANEL 
130 CONTINUE 
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ASSIGN 130 TO JJ . 

NN=NN+1 
KEY=3 ' 

lengt=lpanl 

*IDT=WPANL 

HEIGHT=TSKIN2 

LBURR=2.*CPERIM 

GO TO ( 640 » 6^0 »6S0 #750»670»720# 860 » 870 ) » NN 

EDGE PIECES# HONEYCOMB PANEL 

140 CONTINUE 

ASSIGN 140 TO jj 
' NN=NN+1 
kEY=3 

LENGT= ( LPANL+WPANL > /2 . 

WlDT=TCOKE+EEDGE 

HEIGHT-TEDGE 

LBURR=2.*CPEkIM 

GO TO (640#8«'0#650#7lo#670#720#860#870 ) » NN 

ASSEMBLY# ABlAtIVE PANEL (KINDP r 5) 

150 CONTINUE 

ASSIGN 150 TO JJ 
NN=NN+1 
LENGT=LENGTH 
#IDT=WlDTH 

HEIGHT=TSKIN1+TSKIN2+TEXT 

nhole=nxa 

GO TO (640#840#840»eoO#670#770»720»770»770»770»860»P80> » NN 
panel reusable surface INSULATION 

160 CONTINUE 

ASSIGN 160 TO JJ 

NN=NN+1 

KEY=11 

LENGT=LENGTh 

iXlDTsWlDTH 

hEIGHTsTLXT 

F=1.0 

LSAw=2.*(LENGT+WIDT) 

GO TO (640#740#790»670»720#860#870) » NN 

PANEL ABLATIVE MATERIAL 

170 CONTINUE 

ASSIGN 170 TO JJ 

NNsnn+1 

KEYS12 

LENGT=LENGTH 

widt=width 

HEIGHT=TEXT 

60 TO (640#730»720»860»870) » NN 
HONEYCOMB CORE 


AST 291 
AST 292 
AST 293 
AST 294 
AST 295 
AST 296 
AST 297 
AST 298 
AST 299 
AST 300 
AST 301 
AST 302 
AST 303 
AST 304 
AST 305 
AST 306 
AST 307 
AST 308 
AST 309 
AST 310 
AST 311 
AST 312 
AST 313 
AST 314 
AST 315 
AST 316 
AST 317 
AST 318 
AST 319 
AST 320 
AST 321 
AST 322 
AST 323 
AST 324 
AST 325 
AST 326 
AST 327 
AST 328 
AST 329 
AST 330 
AST 331 
AST 332 
AST 333 
AST 334 
AST 335 
AST 336 
AST 337 
AST 338 
AST 339 
AST 340 
AST 341 
AST 342 
AST 343 
AST 344 
AST 345 
AST 346 
AST 347 
AST 348 
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180 

continue 


AST 

349 



ASSIGN 180 TO JJ 


AST 

350 



NNSNN+1 


AST 

351 



KEY=2 


AST 

352 



lengt=lpanl-eedge 


AST 

353 



widt=wpanl-eedge 


AST 

354 



height=tcore 


AST 

355 



LSAwsCPERIM/2. 


AST 

356 



VOLs . 7* < MAWT-ACWT ) /PCORE 


AST 

357 



GO TO ( 640 ,790 » 760 ,670 » 720 » 860 * 870 ) , NN 


AST 

358 

c 




AST 

359 

c 


ASSEMBLY, RIB8EO PANEL <KINDP=3) 


AST 

360 

c 




AST 

361 


190 

continue 


AST 

362 



ASSIGN 190 TO JJ 


AST 

363 



nn=nn+i 


AST 

364 



lengt=length 


AST 

365 



WIDT=WIDTH 


AST 

366 



HEIGHT=H«IB+TSKIN1 


AST 

367 



GO TO <640, 840, 840,670.770, 720,860, 880) , NN 


AST 

368 

c 



- __ = 

AST 

369 

c 


skin, ribbed panel 


AST 

370 

c 




AST 

371 


200 

continue 


AST 

372 



IF (KINDS, EO.O) GO TO 30 


AST 

373 



IF (KINDS, EO.l) GO TO 30 


AST 

374 



IF (KINDS, EG. 2) GO TO 40 


AST 

375 



IF (KINDS, EG, 3) GO TO 50 


AST 

376 



60 TO 880 


AST 

377 

c 




AST 

378 

c 


RIBS, RIBBED PANEL 


AST 

379 

c 




AST 

380 


210 

CONTINUE 


AST 

381 



ASSIGN 210 TO JJ 


AST 

382 



NN=NN+1 


AST 

383 



KEY = 3 


AST 

384 



LENGT=LPaNL-EEDGE 


AST 

385 



wIDT=HRIB 


AST 

386 



HEIGHT=E1RIB+TWRIB+E3RIB 


AST 

387 



LBURR=2.*CPERIM 


AST 

388 



GO TO (640, 8*0, 650, 750.710, 670, 720,860,870), NN 


AST 

389 

c 




AST 

390 

c 


EDGE PIECES. RIBBED PANEL 


AST 

391 

c 




AST 

392 


220 

continue 


AST 

393 



ASSIGN 220 TO JJ 


AST 

394 



NN=NN+1 


AST 

395 



KEY=3 


AST 

396 



lengt=wpanl 


AST 

397 



widt=hrib+eedge 


AST 

398 



height=tedge 


AST 

399 



LBURR=2,*CPERIM 


AST 

400 



GO TO (640 » 8<;0 , 650 ,710,670,720 , 860,870 ) , NN 


AST 

401 

c 




AST 

402 

c 


ASSEMBLY, INSULATION 


AST 

403 

c 




AST 

404 


230 

CONTINUE 


AST 

405 



ASSIGN 230 TO JJ 


AST 

406 
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NN=NN+1 

LENGTsLEnGTH 

WIDTsWlOTH 

HEIGHT=TINSi+TINS2+TiNS3 

GO TO <640#810»730»720»860#880) # NN 

INSULATION 1 

240 CONTINUE 

ASSIGN 240 TO JJ 

NNSNN+1 

KEY=0 

LENGT ^LENGTH ' ' " ' ' ' ' 

WlOT— WIDTH 

HEIGHT=TINS1 

LSAw=2.*(LEN6T+WIDT) 

GO TO (640,790.720»860»870) # NN 

INSULATION 2 

250 CONTINUE 

ASSIGN 250 TO JJ 

NNSNN+1 

KEY=U 

LENGT=LENGTH 

WIDT=WIDTH 

HEIGHT=TINS2 

LSAw=2.*(LENoT+WI0T) 

GO TO (640,790,720»8o0*870) # NN 

INSULATION 3 

260 CONTINUE 

ASSIGN 260 TO JJ 

NNSNN+1 

KEY=Q 

LENGT=LENGTH 
WlDT-WlDTH 
HEIGHT=TINS3 
LSAw= 2. * (LENuT+WlDT ) 

GO TO (640 #790 #720 #860 #870) * NN 

ASSEMBLY# STRUCTURE A (KINDS=1> 

270 CONTINUE 

ASSIGN 270 TO JJ 
NNSNN+1 

lengt=length 

WIDT=WIDTH 

HEIGHT=TINS1+TINS2+TINS3+B 

NHOLE=NXA 

GO TO (640»810»660»730»840#810»660» 
1»800»730# 860 • 880 ) » NN 

BEAM# LONG A 

280 CONTINUE 

ASSIGN 260 TO JJ 


AST 407 
AST 408 
AST 409 
AST 410 
AST 411 
AST 412 
AST 413 
AST 414 
AST 415 
AST 416 
AST 417 
AST 418 

- ~ AST 419 

AST 420 
AST 421 
AST 422 
AST 423 
AST 424 
AST 425 
AST 426 
AST 427 
AST 428 
AST 429 
AST 430 
AST 431 
AST 432 
AST 433 
AST 434 
AST 435 
AST 436 
AST 437 
AST 438 
AST 439 
AST 440 
AST 441 
AST 442 
AST 443 
AST 444 
AST 445 
AST 446 
AST 447 
AST 448 
AST 449 
AST 450 
AST 451 
AST 452 
AST 453 
AST 454 
AST 455 
AST 456 
AST 457 

#660 #810 #660# ^30 #680 #670 #800 AST 458 

AST 459 
AST 460 
AST 461 
AST 462 
AST 463 
AST 464 
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nn=nn+i 


AST 

465 


KEY=3 


AST 

466 


LENGTsLBMLA 


AST 

467 


rtIDT=WBMLA 


AST 

468 


heightstbmla 


AST 

469 


lburr=2.*cperim 


AST 

470 


DHOLEsTBMLA 


AST 

471 


QIAsOIABHl 


AST 

472 


NH0LE=2.*NXA+2. 


AST 

473 


GO TO ( 640 » 820*650 » 7lo » 690 >670*720* 860*870) , 

NN ■ 

AST 

474 




AST 

475 


BEAM DOUBLER CHANNEL. LONG A 


AST 

476 




AST 

477 

290 

CONTINUE 


AST 

478 


ASSIGN 290 TO JJ 


AST 

479 


NNSNN+1 


AST 

480 


KEY=3 


AST 

481 


lengt=ldoubr 


AST 

482 


WIQT=WD0uBR 


AST 

483 


HElGHT=TDOUBC 


AST 

484 


LBURR=2.*CPERIM 


AST 

485 


DHOL£=TBMLA 


AST 

486 


QIAsOIABHl 


AST 

487 


NHOLE=l. 


AST 

488 


GO TO (640. 820.650. 710. 690, 670.720.860. B70) , 

NN 

AST 

489 




AST 

490 


BEAM, SHORT A 


AST 

491 




AST 

492 

300 

CONTINUE 


AST 

493 


ASSIGN 300 TO JJ 


AST 

494 


NNSNN+1 


AST 

495 


KEY=3 


AST 

496 


LENGTrLBMSA 


AST 

497 


WIDT=WBMSA 


AST 

498 


height=tbmsa 


AST 

499 


LBURR=2.*CPEHIM 


AST 

500 


dhole=trmsa 


AST 

501 


DIAsDIABHl 


AST 

502 


NH0LE=2.*NYA 


AST 

503 


GO TO (640,660,710,690,670,720.860,870), NN 


AST 

504 




AST 

505 


POST. CORNER POST A 


AST 

506 




AST 

507 

310 

continue 


AST 

508 


ASSIGN 310 TO JJ 


AST 

509 


nn=nn+i 


AST 

510 


KEY=4 


AST 

511 


lengt=lpost 


AST 

512 


WIDT=ODPOST 


AST 

513 


HEIGHT=OQPOST 


AST 

514 


LBURR=4 , *P I *ODPOST 


AST 

515 


LSAw=OOPOST 


AST 

516 


VOLs, 7* ( MAWT-ACWT ) /PPOST 


AST 

517 


GO TO (640. 790.650.830.670, 720, 860.870) » NN 


AST 

518 




AST 

519 


FLANGE, CORNER POST A 


AST 

520 




AST 

521 

320 

continue 


AST 

522 


1-135 



ooo non r> r, o non 


ASSIGN 320 TO JJ 

NNsNN+l 

KEY=4 

LENqT rODFNGl 
wI0T=00FNGi 
HEIGHTzLTUBE 
LBURH=4 . *P I *0DFNG1 
LSAW=0DFNG1 

UOLS . 8* ( MAWT-ACWT ) /PTUSE 

GO TO , ( 640 » 790.650.830.670 * 720 » 860 » 870 ) » NN 

PLUG. CORNER POST A 

330 CONTINUE 

ASSIGN 330 TO JJ 

NN=NN+1 

KEYS4 

LENGT=ODPOST 
WIDT=0DP0ST 
HEIGHT=TPLUG 
LBURK=4. *PI*OOPOST 
LSAW=OOPOST 

dhole=tplug 

UIAzUIAPgH 

NHOLtzl. 

UOL= . »* ( MAwT-AcWT ) /PPOST 

GO TO (640.790.830.700.670.720.860.870). NN 

CORNER PIECE 

340 CONTINUE 

ASSIGN 340 TO JJ 

NNsNN+1 

KEY=3 

LENGT=LCORN 

WIDTSWCORN 

HElGHT=TCORN 

LBURR=2.*CPERIM 

LR0UT=2.83*S+2.83*R 

GO TO (640. 82 0.650. 780* 710. 670.720. 86 0.870). NN 

upper corner plate 

350 CONTINUE 

ASSIGN 350 TO JJ 

nn=nn+i 

KEY=3 

LEN6T=WPLATE+2.*HPLATE 

WIDTSWPLATE+2.*HPLATE 

height=tplate 

LBURR=2,*CPERlM 

dhole=tplate 

OIAzDIAPTH 

NHOLt=l. 

GO TO (640.820.650.690.670.720.860.870). NN 
LOWER CORNER PLATE 


AST 523 
AST 524 
AST 525 
AST 526 
AST 527 
AST 528 
AST 529 
AST 530 
AST 531 
AST 532 
AST 533 
AST 534 
AST 535 
AST 536 
AST 537 
AST 538 
AST 539 
AST 540 
AST 541 
AST 542 
AST 543 
AST 544 
AST 545 
AST 546 
AST 547 
AST 548 
AST 549 
AST 550 
AST 551 
AST 552 
AST 553 
AST 554 
AST 555 
AST 556 
AST 557 
AST 558 
AST 559 
AST 560 
AST 561 
AST 562 
AST 563 
AST 564 
AST 565 
AST 566 
AST 567 
AST 568 
AST 569 
AST 570 
AST 571 
AST 572 
AST 573 
AST 574 
AST 575 
AST 576 
AST 577 
AST 578 
AST 579 
AST 580 
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360 CONTINUE 

ASSIGN 360 TO JJ 

NNSNN+1 

KEY=3 

LENGT=WPLAT£+2. *HPLATE 
«(IDTSWPLATE+2.*HPLATE 

height=tplatl 

LBURR=2.*CPERlM 

DHOLE=TPlATE 

DIAsDIAPGH 

NHOLE=l. 

60 TO ( 640 * 820*650 *690*670* 720 *860*870) * NN 

CORNER DOUBLER PLATE 

370 CONTINUE 

ASSIGN 370 TO JJ 

NNSNN+1 

KEY=3 

lengt=wdoubp 

WIDTSWDOUBP 

HEIGHT=TD0U8P 

LBURR=2«*CPERIM 

dhol£=tplate 
OIA sQXAPGH 
NH0 l£=1 . 

60 TO (640*8^0*650*690*670*720*860*870) * NN 

ASSEMBLY, LONG BEAM A 

380 CONTINUE 

ASSIGN 380 TO JJ 

nn=nn+i 

lengt=lbmla 

wIDT=WBEAMA 

HEIGHTsHBEAMA 

60 TO (640*840? 840 ?67o? 770? 720 *860*880 ) ? NN 

ASSEMBLY* SHORT BEAM A 

390 CONTINUE 

ASSIGN 390 TO JJ 

nn=nn+i 

LENGTsLBMSA 

widt=wbeama 

heightshbeama 

GO to (640*840*670*770*720*860*880)* NN 

ASSEMBLY* CORNER 

400 CONTINUE 

ASSIGN 400 TO JJ 
NNSNN+1 

lengt=wplate+2 . *hplate 

WI0T=WPLATE+2.*HPLAT£ 

HEIGHTsHBEAMA 

GO TO (640*840*840*670*770*720*860*880) * NN 


AST 581 
AST 582 
AST 583 
AST 584 
AST 585 
AST 586 
AST 587 
AST 588 
AST 589 
AST 590 
AST 591 
AST 592 
AST 593 
AST 594 
AST 595 
AST 596 
AST 597 
AST 598 
AST 599 
AST 600 
AST 601 
AST 602 
AST 603 
AST 604 
AST 605 
AST 606 
AST 607 
AST 608 
AST 609 
AST 610 
AST 611 
AST 612 
AST 613 
AST 614 
AST 615 
AST 616 
AST 617 
AST 618 
AST 619 
AST 620 
AST 621 
AST 622 
AST 623 
AST 624 
AST 625 
AST 626 
AST 627 
AST 628 
AST 629 
AST 630 
AST 631 
AST 632 
AST 633 
AST 634 
AST 635 
AST 636 
AST 637 
AST 638 
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ASSEMBLY, CORNER POST A 

AST 

639 


AST 

640 

410 CONTINUE 

AST 

641 

ASSIGN 410 TO JJ 

AST 

642 

nn=nn+i 

AST 

643 

LENgT=LP0ST+TPLUG 

AST 

644 

wI0T=00FnG1 

AST 

645 

HElGHTrOjFNGl 

AST 

646 

60 jo ( 640 ,64 0,840, 84 0,67 0,770, 720, 860, 880), NN 

AST 

647 


AST 

648 

seal strip 

AST 

649 


AST 

650 

420 CONTINUE 

- - AST 

651 

ASSIGN 420 TO JJ 

AST 

652 

nn=nn+i 

AST 

653 

KEY=3 

AST 

654 

LENGr=LS£AL 

AST 

655 

WlDT=ftSEAL 

AST 

656 

height=tseal 

AST 

657 

L8URR=2.*CPEkIM 

AST 

658 

uH0l£=TS£Al 

AST 

659 

JIA=DIABh1 

AST 

660 

NHOlE=NYa 

AST 

661 

00 TO <640,820, 650*690»710, 670, 720,860,870) * NN 

AST 

662 


AST 

663 

ASSEMBLY, SThUCTURE a <KINOS=2) 

AST 

664 


AST 

665 

430 CONTINUE 

AST 

666 

ASSIGN 430 TO JJ 

AST 

667 

nn=nn+i 

AST 

668 

lengt=length 

AST 

669 

wijt=width 

AST 

670 

HEIGHT=TlNSl+TlNS2+TlNS3+8 

AST 

671 

NH0Lt=4, 

AST 

672 

GO TO <640,810, 810, 660*730, 680,670, 800, 730,860, 880) » NN 

AST 

673 


AST 

674 

POST, CORNER POST B 

AST 

675 


AST 

676 

440 CONTINUE 

AST 

677 

ASSIGN 440 TO JJ 

AST 

678 

nn=nn+i 

AST 

679 

KEY=3 

AST 

680 

LENGT=2 . *LPOST+3 . *ftPOST 

AST 

681 

ft IDT=HP0ST+2 . *ftSTFNR 

AST 

682 

HElGHTsTPOST 

AST 

683 

LBURR=3.*CPERlM 

AST 

684 

LROUT=CPER IM-4 . *LSTFNR 

AST 

685 

ohole=tpost 

AST 

686 

UIAsQIAPOH 

AST 

687 

NHOLE=3 . 

AST 

688 

GO TO (640, 820, 650, 780#690, 710, 670, 720, 860, 870) » NN 

AST 

689 


AST 

690 

ASSEMBLY, CORNER POST 3 

AST 

691 


AST 

692 

450 CONTINUE 

AST 

693 

ASSIGN 450 TO JJ 

AST 

694 

nn=nn+i 

AST 

695 

lengi=lpost 

AST 

696 
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460 


470 


480 


490 


500 


WIDT=WP0ST 

AST 

697 

HEI6HT=HP0ST 

AST 

698 

GO TO (640*840*670*770*720,660*880) 

, NN AST 

699 


AST 

700 

INSULATORS 

AST 

701 


AST 

702 

continue 

AST 

703 

ASSIGN 460 TO JJ 

AST 

704 

nn=nn+i 

AST 

705 

KEY=0 

AST 

706 

GO TO ( 860 * 870 ) * NN 

AST 

707 


AST 

708 

ASSEMBLY* STKUCTURE C (KINDS=3) 

AST 

709 


AST 

710 

CONTINUE 

AST 

711 

ASSIGN 470 TO JJ 

AST 

712 

nn=nn+i 

AST 

713 

lengt=length 

AST 

714 

WIDT=WIDTH 

AST 

715 

HEIGHT=TINS1+TINS2^TINS3+B 

AST 

716 

nhole=i. 

AST 

717 

GO TO (640*810*660*730*800,810*660* 

810 * 660 * 730 * 680 , 670 , 8oO * 800 * 730AST 

718 

1*860*880)# NN 

AST 

719 


AST 

720 

BEAM, LONG c 

AST 

721 


AST 

722 

continue 

AST 

723 

ASSIGN 480 TO JJ 

AST 

724 

NN=NN+1 

AST 

725 

KEY=3 

AST 

726 

lengt=lbmlc 

AST 

727 

WIDT=WBMLC 

AST 

728 

height=tbmlc 

AST 

729 

LBURR=2.*CPEkIM 

AST 

730 

GO TO (640, 8^0.650, 670*720, 860*870) 

, NN AST 

731 


AST 

732 

RIB, LONG C 

AST 

733 


AST 

734 

continue 

AST 

735 

ASSIGN 490 TO JJ 

AST 

736 

nn=nn+i 

AST 

737 

KEY=J 

AST 

738 

lengt=lribl 

AST 

739 

wiot=wribl 

AST 

740 

HEIGHT=TRI6L 

AST 

741 

LBURR=2.»CPERIM 

AST 

742 

GO TO ( 640 * 8^0 * 650*670*720* 860*870) 

» NN AST 

743 


AST 

744 

BEAM, SHORT C 

AST 

745 


AST 

746 

CONTINUE 

AST 

747 

ASSIGN 500 TO JJ 

AST 

748 

NN=NN+1 

AST 

749 

KEY=3 

AST 

750 

lengt=lbmsc 

AST 

751 

i«/IOT=WBMSC 

AST 

752 

height=tbmsc 

AST 

753 

LBURR=2.*CPERIM 

AST 

754 
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GO TO <640, 820*650, 670*720, 860*870) » NN 


AST 

755 

c 



AST 

756 

c 

RIB* SHORT C 


AST 

757 

c 



AST 

758 


510 CONTINUE 


AST 

759 


ASSIGN 510 TO JJ 


AST 

760 


nn=nn+i 


AST 

761 


KEY=3 


AST 

762 


LENGT=LRIPS 


AST 

763 


#IDT=WRIdS 


AST 

764 


HEIGHT=TRI8S 


AST 

765 


LBURR=2.*CPERIM 


AST 

766 


GO TO (640,820*650,670,720,860*870)* NN 


AST 

767 

c 



AST 

768 

c 

POST* CENTER POST C 


AST 

769 

c 



AST 

770 


520 CONTINUE 


AST 

771 


ASSIGN 520 TO JJ 


AST 

772 


NN=NN+1 


AST 

773 


KEY=4 


AST 

774 


LENGT=LTu8£P 


AST 

775 


WlDT=ODPOSR 


AST 

776 


HEIGHT=0QP0SR 


AST 

777 


LBURR=4 . *P I *OOPOSR 


AST 

778 


LSAwrODPOSR 


AST 

779 


VOL= . 7* ( mAwT-ACWT ) /PPOST 


AST 

780 


GO TO (640 *790*650*830*670* 720 » 860*870 ) * 

NN 

AST 

781 

c 



AST 

782 

c 

FLANGE (LOWER), CENTER POST C 


AST 

783 

c 



AST 

784 


530 CONTINUE 


AST 

785 


ASSIGN 530 TO JJ 


AST 

786 


NNSNN+1 


AST 

787 


KEY24 


AST 

788 


LENGT=ODFNG2 


AST 

789 


WlDT=00FNG2 


AST 

790 


HEIGHT=HFNG2 


AST 

791 


LBURR=4 . *P I *ODFNG2 


AST 

792 


LSAWsOOPOSR 


AST 

793 


UOL= . 8* ( MAwT-ACWT > /PPOST 


AST 

794 


GO TO ( 640*790* 650*830 » 670*720* 860* 870)* 

NN 

AST 

795 

c 



AST 

796 

c 

FLANGE (UPPER), CENTER POST C 


AST 

797 

c 



AST 

798 


540 CONTINUE 


AST 

799 


ASSIGN 540 TO JJ 


AST 

800 


NN=NN+1 


AST 

801 


KEYS4 


AST 

802 


LENGTrODPOSR 


AST 

803 


WIDT=0DP0SR 


AST 

804 


HEIGHT=HRING 


AST 

805 


LBURR=4.*PI*ODPOSR 


AST 

806 


LSAW=0DFNG2 


AST 

807 


DHOLE=TRING2 


AST 

808 


DIAsUIARGH 


AST 

809 


nhole=i. 


AST 

810 

‘ 

UOL=. 8* ( MAWT-ACWT ) /PTU8E 


AST 

811 


GO TO (640,790*650,830,700,670,720,860*870), NN 

AST 

812 
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550 


560 


570 


560 


590 


600 



AST 

813 

ASSEMBLY. LONG BEAM C 

AST 

814 


AST 

815 

CONTINUE 

AST 

816 

ASSIGN 550 TO JJ 

AST 

817 

NNSNN+1 

AST 

818 

LENOT=LBMLC 

AST 

819 

WIDT=WBMLC 

AST 

820 

HE I GHTrWh I BL+TBMLC 

AST 

821 

GO TO (640. 8^0. 670. 770. 720. 860. 880) . NN 

AST 

822 


AST 

623 

ASSEMBLY. SHORT BEAM C 

AST 

824 


AST 

625 

continue 

AST 

826 

ASSIGN 560 TO JJ 

AST 

827 

NN=NN+1 

AST 

828 

LENGT=LBMSC 

AST 

829 

*IDT=WBMSC 

AST 

830 

HEIGHT=WRIBS4TBMSC 

AST 

831 

GO TO (640.840.670.770.720.860.880). NN 

AST 

832 


AST 

833 

ASSEMBLY. CENTER POST C - 

AST 

834 


AST 

835 

CONTINUE 

AST 

836 

ASSIGN 570 TO JJ 

AST 

837 

nn=nn+i 

AST 

838 

LENGTSLTUBER 

AST 

839 

*I0T=0DFNG2 

AST 

840 

HEI6HT=00FNGid 

AST 

841 

GO TO <640. 840. 840. 670.770, 720*860.880) » NN 

AST 

842 


AST 

843 

ASSEMBLY, CORNER POST C 

AST 

844 

• 

AST 

845 

continue 

AST 

846 

ASSIGN 580 TO JJ 

AST 

847 

WN=NN+1 

AST 

848 

lengt=lpost 

AST 

849 

WlUTsOOENGl 

AST 

850 

HEIGHT=ODFNGi 

AST 

851 

GO TO (640.840, 840, 840.670.770.720, 860, 880) » NN 

AST 

852 


AST 

853 

POST, CORNER POST C 

AST 

854 


AST 

855 

CONTINUE 

AST 

856 

ASSIGN 590 TO JJ 

AST 

857 

nn=nn+i 

AST 

858 

KEY=4 

AST 

859 

LENGTSLPOST 

AST 

860 

WlDT=OOPQST 

AST 

861 

HEIGHT=0UP0ST 

AST 

862 

LBURR=4.*PI*0DP0ST 

AST 

863 

LSAwsODPOST 

AST 

864 

V0L= . 7*( M AWT-ACWT ) /PPOST 

AST 

065 

GO TO (640.790.650.830, 670.720* 860,870) » NN 

AST 

866 


AST 

867 

FLANGE (LO*ER>, CORNER POST C 

AST 

868 


AST 

869 

CONTINUE 

AST 

870 
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ASSIGN 600 TO JJ 

NN=NN+1 

KEYS4 

lengt=odfngi 

WIOT=OOFNG1 

height=hfngi 

LBURKS4 . *P I *00FNG1 

lsaw=odring 

U0L=.8*(MAKT-ACWT)/PP0ST 

GO TO (640 ,790 ,650, 830 ,670, 720 ,860 ,8/0) , NN 

PLUG, CORNER POST C 

610 CONTINUE 

ASSIGN 610 TO JJ 

NN=NN+1 

KEYS4 

lengt=oopost 

•IOTsODPOST 

HEIGHT=TPLUG 

LBURR=4.*PI*0DP0ST 

LSAwsODPOST 

ohole=tplug 

OIAsOIAPGH 
NHOLEsI . 

U0L=.8* ( MAWT-ACWT) /PPOST 

GO TO (640,790,830,700,670,720,860,870), NN 

RING (UPPER), CORNER POST C 

620 CONTINUE 

ASSIGN 620 TO JJ 

NN=NN+1 

KEY=4 

LENGTsODRING 

wiot=odring 

HEIGHTsTRINGX 
LBURR=4 , *P I *ODR ING 
LSAw=ODFNG1 

UOL= . 8* ( MAWT-ACWT ) /PTUBE 

GO TO (640,790,650,830,670,720,860,870), NN 

ASSEMBLY, COMPLETE TPS SYSTEM ASSEMBLY 

630 CONTINUE 

ASSIGN 630 TO JJ 
NNSNN+1 
LENGT=LEN6TH 
WIQT=WIDTH 

HEI6HTSTINS1+TINS2+TINS3+B 

NHOLE=2FAS 

GO TO (640,810,660,730,680,670,800,730,860,880), NN 


INITIALIZE OETAIL PART VARIABLES 


640 CONTINUE 

CAREA=LENGT*wlDT 


AST 871 
AST 872 
AST 873 
AST 874 
AST 875 
AST 876 
AST 877 
AST 878 
AST 879 
AST 880 
AST 881 
AST 882 
AST 883 
AST 884 
AST 885 
AST 886 
AST 887 
AST 888 
AST 889 
AST 890 
AST 891 
AST 892 
AST 893 
AST 894 
AST 895 
AST 896 
AST 897 
AST 898 
AST 899 
AST 900 
AST 901 
AST 902 
AST 903 
AST 904 
AST 905 
AST 906 
AST 907 
AST 908 
AST 909 
AST 910 
AST 911 
AST 912 
AST 913 
AST 914 
AST 915 
AST 916 
AST 917 
AST 918 
AST 919 
AST 920 
AST 921 
AST 922 
AST 923 
AST 924 
AST 925 
AST 926 
AST 927 
AST 928 
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CPERIM=2.* ILENGT4WIDT ) 

IF (CPERIM.LT. 3.) CPtRIM=3. 

CLAMPrCPERIM/6. 

LSCRIB=CPERIM 
ATTPS=LEN*WlO 
SHPSET=1 . 

NUMP=<KT*ATTPS*SHPSET/<LEN*WlD) J+.5 
S AREA=2 . * ( LENGT I DT+LENGT *H£ IGHT I DT *HE I GHT ) 
FORILL=< .0017*£XP(1.16*DIA)+.0062*DHOLE**1.89>*F 
GO Ty JJ 


MANUFACTURING OPERATION EQUATIONS 
BURRING. EDGE 

650 SDHR05=< .01+ . 0007*F*L8URR ) *NUMP 
LARATE=4.75 
REFCT=.40 
VRATE=1 . 75 
GO TO Q50 

CLAMPING 

660 SDHR08=.035*CLAMP*NUMP 
LARATE-4 .75 
REFCT=.40 
VRATE=1.75 
GO TO 850 

CLEANING, BASKET (DEGREASE) 

670 SOHR10= < . 0000626*CPERIM- .000179 ) *NUMP 
LARATES4.75 
REFCTS.40 
VRATE=1.75 
GO TO 850 

CLEANUP. ASSEMBLY 

SDHR11s.01*NHOlE*NUMP 

LARATE=4,75 

REFCT=.40 

VRATE=1.75 

GO TO 850 

DISASSEMBLY 

680 SDHR12s.012*CLAMP*NUMP 
LARATE=4.75 
REFCT=.40 
VRATE=1.75 
GO TO 850 

DRILLING, SINGLE SPINDLE 

690 SDHR14S.25-M .013*EXP( ,00096*CAREA)4.NHOLE*FDRILL)*NUMP 
LARATE=4,75 


AST 929 
AST 930 
AST 931 
AST 932 
AST 933 
AST 934 
AST 935 
AST 936 
AST 937 
AST 938 
AST 939 
AST 940 
AST 941 
AST 942 
AST 943 
AST 944 
AST 945 
AST 946 
AST 947 
AST 948 
AST 949 
AST 950 
AST 951 
AST 952 
AST 953 
AST 954 
AST 955 
AST 956 
AST 957 
AST 958 
AST 959 
AST 960 
AST 961 
AST 962 
AST 963 
AST 964 
AST 965 
AST 966 
AST 967 
AST 968 
AST 969 
AST 970 
AST 971 
AST 972 
AST 973 
AST 974 
AST 975 
AST 976 
AST 977 
AST 978 
AST 979 
AST 980 
AST 981 
AST 982 
AST 983 
AST 984 
AST 985 
AST 986 
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REFCT=.40 
VRATEsl.75 
60 TO 850 

DRILLING AND REAMING OR TAPPING, SINGLE SPINDLE 

700 SDHR14S.25+I . 013*EXP< . 00096*CAR£A ) *NHOLE*FDRILL ) *NU^P 
S0HRI5=S0HR14*1.25 
SDHR14S0 
LARATES4.75 
REFCT=.4Q 
VRATEsl.75 
GO TO 850 

ORXLLING, ASSEMBLY 

SDHR16S ( • 0017*EXP ( 1 . 16*01 A ) ♦ . 0062*DHOLE**1 . 89 ) *F*NH0LE*NuMP 

LARATES4.75 

REFCTs.40 

VRATE=1,75 

GO TO 850 

FORMING# HOT PRESS FORMING SHEET STOCK 

710 SDHRl7s. q8*( .0396*. 000 0392*C AREA) *NUMP 
LARATE=4.75 
REFCTs. 40 
VRATfcsl.75 
GO TO 850 

FORMING# STRETCH FORMING EXTRUDED STOCK 

SDHR18S . 52* ( . 082* . 00 04*LENGT ) *F*NUMP 

LARATES4.75 

KEFCTs.40 

VRATEsl.75 

GO TO 850 

HEAT TREATMENT AND STRAIGHTENING 

SDHR26=( .0142*.0024*LENGT)*NUMP 

LARATES4.75 

REFCTs.40 

VRATEsl.75 

GO TO 850 

IDENTIFICATION, RUBBER OR STEEL STAMP 
720 SDHR32ss.Q7*.o032*NUMP 

LARATES4.75 
REFCTs.40 
VRATEsI, 75 
GO TO 850 

INSPECTION, ASSEMBLY 

SDHR36S.0008*NHOLE*NUMP 

LARATES4.75 


AST 987 
AST 988 
AST 989 
AST 990 
AST 991 
AST 992 
AST 993 
AST 994 
AST 995 
AST 996 
AST 997 
AST 998 
AST 999 
AST1000 
AST1001 
AST1002 
AST1003 
AST1004 
AST1005 
ASTI 006 
AST1007 
AST1008 
AST1009 
AST1010 
AST1011 
AST1012 
AST1013 
AST1014 
AST1015 
AST1016 
AST1017 
AST1018 
AST1019 
AST1020 
AST1021 
AST1022 
AST1023 
AST1024 
ASTI 025 
ASTI 026 
AST1027 
AST1028 
AST1029 
AST1030 
AST1031 
AST1032 
AST1033 
AST 10 34 
AST 1035 
ASTI 036 
ASTI 037 
AST 10 38 
ASTI 039 
AST1040 
AST1041 
AST 1042 
AST 1043 
AST 1044 
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REFCT=.40 

AST1045 



VRATE=1.75 

AST1046 



GO TO 850 

AST1047 

c 



AST 1048 

c 


INSPECTION 

AST 1049 

c 



AST 1050 


730 

SDHR37=( .OQU57*.O00O333*CAREA)*NUMP 

AST1051 



LARATE=4.75 

ASTI 052 



REFCT=.40 

AST 1053 



VRATE=1.75 

ASTI 054 



GO TO 850 

AST 1055 

c 



ASTI 056 

c 


layout part, sheet metal 

AST1057 

c 



AST1058 


740 

S0HR38S . 0 15+ ( .008+ . 0006*LSCR IB ) *NUMP 

AST 1059 



LARAIE=4.75 

AST1060 



REFCT=,40 

AST1061 



VRATE=1.75 

AST 1062 



GO TO 850 

AST 1063 

c 



AST 1064 

c 


LAYOUT HOLES » SHEET METAL 

AST 1065 

c 



ASTI 066 



SDHR39=.0lb-M ,008+.002*NHOLt;) *NuMP - , 

ASTI 067 



LARATE=4.75 

AST 1068 



REFCT=.40 

AST1069 



VRATE=1,75 

AST1070 



GO TO 850 

AST1071 

c 



AST 1072 

c 


LAYOUT HOLES' MACHINE SHOP 

AST1073 

c 



AST1074 



SDMR40=< .053+.U31*NHOLE)*NUMP 

AST1075 



LARATE-4 . 75 

AST1076 



REFCTS.40 

AST1077 



VRATt=1.75 

AST1078 



GO 10 850 

AST1079 

c 



AST1080 

c 


LAYOUT PART# MACHINE SHOP 

AST1041 

c 



AST1082 



SDHR4l= . 18* ( . 053+ . 004*LSCRIB*. 012*NANGLE> *NUMP 

AST1083 



LARATE=4.75 

AST 1084 



REFCT=,40 

AST1085 



VRATt=I.75 

AST1086 



GO TO 850 

AST1087 

c 



AST 1088 

c 


MILLING, CHEMICAL 

AST1089 

c 



AST1090 


750 

SOHR43= . 1+ . 0 164*C AREA** . 44g*NUMP 

AST1091 



LARATE=4,75 

AST1092 



REFCTs.40 

AST1093 



VRATE=1.75 

AST 1094 



GO TO 850 

AST 1095 

c 



AST 1096 

c 


MILLING, STRADDLE 

AST 1097 

c 



AST 1098 


760 

SDHR48S ,925+ ( • 1563+ ,000 1251 *C AREA* ( . 021 6+ .0141 3* VOL > *F ) *NUMp 

ASTI 099 



LARATE=4.75 

ASTI 100 



REFCTS.40 

AST1101 



VRATE=1.75 

AST 11 02 



1-145 






GO fO 850 

AST1103 

c 



AST1104 

c 


painting# one coat 

AST1105 

c 



AST 11 06 


770 

SDHR53= .10+ ( . 0ul6*NSURF+. 00003*SAREA) *NUMP 

AST1107 



l_ARATE=4.75 

AST1108 



REFCT=.40 

ASTI 109 



VRATE=1.75 

AST 11 10 



GO TO 850 

AST1111 

c 



AST1112 

c 


ROUTING# EDGE (SINGLE PIECE) 

asti 113 

c 



AST1114 


780 

SDHR71=.36+< .0267*.OU19*LROUT*F)*NUMP , 

AST1115 



LARATE=4.75 

AST1116 



REFCT=.40 

ASTI 1 17 



VRATE=1.75 

AST1118 



GO TO 850 

AST1119 

c 



AST1120 

c 


SAWING# CROSS CUT 

AST1121 

c 



AST 11 22 


790 

SDHR75=.l6+.0036*EXP< .00153*CAREA)^.0002*LSAW*F*NUMP+(NUMP-1. 

) *( .0AST1123 


17+.0Q26*EXP< .00049*CAREA) ) 

AST1124 



LARAT£=4.75 

AST1125 



REFCT=.40 

AST1126 



VRATE=1.75 

AST 1127 



GO TO 850 

ASTI 128 

c 



AST1129 

c 


SECURING 

ASTI 130 

c 



AST1131 


800 

SDHR80=. 0023*NHOLE*NUMP 

AST1132 



LAKATE=4.75 

ASTI 133 



REFCT=.40 

ASTI 134 



VRATt=1.75 

AST 1135 



GO TO 850 

ASTI 136 

c 



AST 11 37 

c 


SETUP# ASSEMBLY 

AST 11 38 

c 



ASTI 139 


810 

SDHR82=.25+{ ,013*EXP( ,00096*CAREA) )*NUMP 

AST 1140 



LARATE=4.75 

AST 1141 



KEFCT-.40 

AST 1142 



VRATE=1.75 

AST 1 143 



GO TO 850 

AST 1 144 

c 



ASTI 145 

c 


SHEARING TO SIZE 

AST 1146 

c 



AST1147 


820 

SDHR83=.0S+( .001 03+.0000066*C AREA) *NUMP 

ASTI 148 



LARATE=4.75 

AST 1149 



REFCTs.40 

AST 1150 



VRATE=1,75 

AST 1151 



GO TO 850 

ASTI 1 52 

c 



AST 1153 

c 


surface treatments 

AST 11 54 

c 



AST 11 55 



SDHR85=< ,0019*EXP( .0189*LENGT) )*NUMP 

AST1156 



LARATE=4.75 

AST 11 57 



REFCTs.40 

AST 11 58 



VRATEsl.75 

AST 1159 



GO TO 850 

AST1160 
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AST1161 

TURNING, TURRET LATHE AST1162 

AST1163 

830 S0HR48=.925>M .1563+.Q00l251*CAREA+t ,02l6+.014l3*VOL>*F)*NUMp AST1164 

S0HR92=SQHR48 AST1165 

SDHR48=0 AST 1166 

LARATE=4.75 ASTI 16? 

REFCT=.40 AST1168 

VRATE=l,75 ASTI 169 

60 TO 850 AST1170 

AST1171 

MELDING - BRAZING AST1172 

Asti 173 

840 SDHR97=, 1+.026*NUMP AST1174 

LARAjE=4.7b AST1175 

REFCT=.40 AST 11 76 

VRATL=1.75 ASTI 177 

60 TO 850 AST1178 

AST 11 79 
AST1180 

SUMMATION OF STANDARD HOURS AST1181 


^ AST1182 

650 CONTINUE AST1183 

STOHK=SDhR 05 + SDHR08+SDHR1 0+SOHR 1 1+SDHR 1 2+SDHR 14+SOHP 15+SdHR 1 6+SDHRAST 1184 
H74SDHRl8+SOt(R26+SOHR32+SDHH36+SDHR37+snHR38+SDHK39+SDHR40+sDHR4l'»-AST1185 
2SDHR43+SUHR46+SDHR53+SDHR71+SDHR75+SDHR80+SDHR82+SDHR83+SDHR864SDHAST1186 


3R92+SDHR97 
GO TO 880 
860 CONTINUE 
EOP31, 

GO TO JJ 
870 CONTINUE 
CALL AMATl 
o80 CONTINUE 
RETURN 
END 


AST1187 
AST1188 
AST 11 89 
AST1190 
AST1191 
AST It 92 
AST1193 
ASTH94 
AST 1195 
AST 11 96' 
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SUBROUTINE COST 






CST 

1 

COMMON/COMTOT/ 






CST 

CST 

2 

3 

1AT ♦ BT 

♦ CT 

»CF1 

♦ EGTH 

♦ eta 

f 

CST 

4 

2FTH ♦ FTS 

♦ K1 

♦ K2 

♦ K3 

♦ npa 

t 

CST 

5 

30S ♦ STPS 

♦ TUNWT 





CST 

6 

COMMON /LINK/ NSECT 

»TC*TS#TSKIN 1 #TSKIN 2 

♦TINS1^TINS2»TINS3^ 

XDST 

CST 

7 

common/stphr/ 






CST 

6 

1EOP ♦LARATE 

♦ MATLID 

*NN 

#PI 

♦REFCT 

9 

CST 

9 

2STDHR fVRAjE 






CST 

10 

common/wta/ 






CST 

11 

IA ♦ 8 

♦CHORD 

♦ 6 l ABH1 

♦ DIAPOH 

♦diargh 

9 

CST 

12 

20IAP6H ♦DIAPTH 

• 





CST 

13 

30LPANL ♦DrfPANL 

♦EEDGE 

♦ElRIB 

♦E 2 RIB 

♦E3RIB 

9 

CST 

14 

4GB0LT ♦GCLAMP 

.GINSRT 

♦G INSUL 

♦GNUTPL 

♦GWASH 

9 

CST 

15 

5HBEAMA ♦HFNGl 

♦HFNG2 

♦HP LATE 

♦HPOST 

♦ HR IB 

9 

CST 

16 

6 HRING fluFNGl 

♦ IDFNG2 

♦KINDP 

♦KINDS 

♦lbmla 

9 

CST 

17 

7LBMLC ♦LBMsA 

♦L 6 MSC 

♦LCORN 

♦ldoubr 

♦LENGTH 

9 

CST 

18 

blpanl ♦lpost 

♦LRIBL 

♦ LR IBS 

♦LSEAL 

♦lstfnr 


CST 

19 

9LTUBE ♦NkIBS 

♦ NXA 

♦ NYA 

♦ODFNG1 

♦ 00 PNG 2 

9 

CST 

20 

SOOPOSR ♦ OQPOST 

♦OORINS 

♦ PBM 

♦PCORE 

♦PEDGE 

9 

CST 

21 

SPINS 1 »P 1 NS 2 

♦PINS3 

* PPOST 

♦ PRIB 

♦PSEAL 

9 

CST 

22 

SPSKJN 1 »PSKIN 2 

rPTUBE 

♦ R 

♦RADIUS 

♦ s 

9 

CST 

23 

4TBMLA »T 8 MlC 

♦ T 8 MSA 

♦TBMSC 

♦ TCORE 

♦ TcORN' 

9 

CST 

24 

STDOUBC ♦TOOUBP 

♦TEOGE 

♦TFNG 1 

♦tplate 

♦ T PLUG 

• 

CST 

25 

5TP0ST tTRltiL 

» TRIBS 

♦ TRING1 

♦TRING2 

♦TSEAL 

9 

CST 

26 

STTUBE ♦TaRlB 

♦TlRlB 

♦T2RIB 

♦wbeama 

♦ W BMlA 

9 

CST 

27 

SfcBMLC ♦WbMSA 

♦WBMSC 

♦ WCORN 

♦ WCORR 

♦wdoubp 

9 

CST 

28 

SWDOUBR ♦ WIDTH 

♦ WPANL 

♦wplate 

♦WPOST 

♦WRIBL 

9 

CST 

29 

SWRI 8 S ♦ WSEAL 

♦ WSTFNR 

♦ ZFAS 




CST 

30 

COMMON/WTCOST/ 






CST 

31 

1ACWT ♦ AMUV 

» AOP (7*7) 

♦ ITL 

♦ KK 

♦ KLIC 

9 

CST 

32 

2C0SWT ♦ KT 

» LEN 

♦ltuber 

♦ MAWT 

♦ N 

9 

CST 

33 

3PEXT ♦ TEXT 

♦ WlD 

♦ 2ZUB 




CST 

34 

common/zero/ 






CST 

35 

1LABHR ♦LACOST 

♦TACMT 

♦TALABH 

♦tastoh 

♦TaSYCO 

9 

CST 

36 

2TFC0ST ♦TLACOS 

♦ TLBHR 

♦tmawt 

♦TSTDHR 

♦TTFCOS 

9 

CST 

37 

3TTLAC0 ♦TTLBHR 

♦TTMCOS 

♦ TTSHR 

♦TTVCOS 

♦TVCOST 

9 

CST 

38 

4VC0ST 






CST 

39 







CST 

40 

DIMENSION ANaM(2* 38 ) 

♦ MTYPE ( 5 ♦ 

15) 




CST 

41 







CST 

42 

real ltuber ♦LABHR 

♦LACOST tLARATE * MAWT ♦MATCOStMUV 

• LEN 

CST 

43 







CST 

44 

DATA (ANAM(I) .1=1,8) 






CST 

45 

1/ 6 HINSULA# 6HTI0N 

♦ 6 H INSUL 

♦ 6H1 

♦ 6 H INSUL 

♦ 6H2 

t 

CST 

46 

2 6 H INSUL ♦ 0 H 3 

/ 





CST 

47 

DATA <ANAM(I ) »Is9#20) 





CST 

48 

1/ 6 HPANEL » 6 H 

♦ 6 H CORRU 

♦ 6 HGNS 

♦ 6 H EDGES 

♦ 6 H 

9 

CST 

49 

2 BH CORE ♦ t»H 

♦ 6 H RIBS 

♦ 6 H 

♦ 6 H SKIN 

♦ 6 H 

/ 

CST 

50 

DATA (ANAM(I) »IS£1,72) 





CST 

51 

1/ 6 HSTRUCT, 6 HURE 

» 6 H BEAM 

♦ 6 HLN A 

♦ 6 H BEAM 

♦ 6 HSH A 

9 

CST 

52 

2 6 H CORNE» fc>HR 

* 6 H INSER 

♦ 6 HTS 

♦ 6 H POST 

♦ 6HC0RN 

9 

CST 

53 

3 6 H SEAL * oH 

♦ 6 H INSUL 

♦ 6HAT0R 

♦ 6 H BEAM 

♦ 6 HLN C 

9 

CST 

54 

4 6H BEAM ♦ t»HSH C 

» 6 H POST 

♦ 6 HCENT 

♦ 6 H FASTE 

♦ 6 HNERS 

9 

CST 

55 

5. 6 H INS A, 6 HSSY 

♦ 6 H PANL 

♦ 6 HASSY 

♦ 6 H BEAM 

♦ 6HD0UB 

9 

CST 

56 

6 6 H BEAM ♦ oHASSY 

♦ 6 H RIB L 

♦ 6 WN C 

♦ 6 H RIB S 

♦ bHH C 

9 

CST 

57 

7 6 H CORN ♦ oHPLT 

♦ 6 H CORN 

♦ 6 HD 0 UB 

♦ 6 H CORN 

♦ 6 HASSY 

9 

CST 

58 
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c 


8 6H RING » oH . 6H FLANG* 6HE 

9 6H PLUG » 6H . 6H STR A, 6HSSY 

QATA (ANAM(I) .1=73.76) 

1/ 6H R S I» 6H * 6H A0LAT. 6HlvE 


OATA MTYPE / 


1 

6H 

ALUM I. 

6HNUM » 

6H 

9 

6H 

2 

6H 

TITAN. 

bnlUM . 

6H 

9 

6H 

3 

6H 

INCON. 

6HEL 718* 

6H 

9 

6H 

4 

6H 

HAST t * 

6HLL0Y X. 

6H 

9 

6H 

5 

6H 

RENE . 

6H41 . 

6H 

9 

6H 

6 

6 H 

TD NIf 

bHCR . 

6H 

9 

6H 

7 

bH 

COATE. 

6HD COLU* 

6HMBIUM 

9 

6HALL0Y 

8 

6H 

coate. 

6HD COLU. 

6HMBIUM 

9 

6HALL0Y' 

9 

6H 

HAYNE. 

6HS 188 . 

6H 

9 

6H 

$ 

bH 

COATt. 

6HD tant. 

6HALUM 

9 

6H 

t 

6H 

ALLOY . 

bH STEEL. 

6H 

9 

6H 

* 

oH 

STAIN. 

6HLESS S. 

6HTEEL 

9 

6H 

S 

6H 

MAGNE. 

6HSIUM . 

6H 

9 

6H 

s 

6H 

BERYL. 

6HLIUM . 

6H 

9 

6H 

$ 

6H 

L-605. 

bH . 

6H 

9 

6H 


NN=0 

LOP=U 

ZZUB=(j 

IF (KK.EU.l) GO TO 60 
IF (KLK.EU.100) GO TO 150 
10 CONTINUE 

IF (EOP.LQ.l.) GO TO 30 

CALL ASTDHK 

ZZUB=1. 

IF (KLIC.EU.10) GO TO 110 
IF (REFCT .EQ.O. > STDHR=0 
IF (KEFCT.LQ.O, ) GO TO 20 
LABHR=LABHK+ ( STDHR/REFCT ) 
LACOST=LACOST+ ( LABHR*LARATE ) 
VCOST=VCOST+ (LARATE*VRATE) *LABHR 
20 CONTINUE 

FCOST=LACOST+VCOST 

tstohr=tstdhr+stohr 

tlbhk=tlbhr+labhr 

TLACOS=TlACOS*LACOST 

tvcost=tvcost+vcost 

TFC0ST=TFC0S T+FCOST 

LABHRzO 

LACOST=0 

VCOST=0 

GO TO 10 

30 IF (TLBHR.EQ.O) GO TO 40 

avera=tlacos/tlbhr 

averf=tstdhr/Tlbhr 

tvrate=tvcost/tlbhr 

GO TO 50 
40 AVERA=0. 

AVEKFsO. 

TVRATE=0. 

50 CONTINUE 


. 6H POST . 6HASSY . 

CST 

59 

/ 

CST 

60 


CST 

61 

/ 

CST 

62 


CST 

63 

6H . 

CST 

64 

6H » 

CST 

65 

6H » 

CST 

66 

6H # 

CST 

67 

6H . 

CST 

68 

6H . 

CST 

69 

bHCB 752. 

CST 

70 

6HC 129Y. 

CST 

71 

6H » 

CST 

72 

6H » 

CST 

73 

6H . 

CST 

74 

6H . 

CST 

75 

6H * 

CST 

76 

6H » 

CST 

77 

6H / 

CST 

78 


CST 

79 


CST 

80 


CST 

81 


CST 

82 


CST 

83 


CST 

84 


CST 

85 


CST 

86 


CST 

87 


CST 

88 


CST 

89 


CST 

90 


CST 

91 


CST 

92 


CST 

93 


CST 

94 


CST 

95 


CST 

96 


CST 

97 


CST 

98 


CST 

99 


CST 

100 


CST 

101 


CST 

102 


CST 

103 


CST 

104 


CST 

105 


CST 

106 


CST 

107 


CST 

108 


CST 

109 


CST 

110 


CST 

111 


CST 

112 


CST 

113 


CST 

114 


MUVSAMUV CST 115 

MATCOS=MAWT*MUV*COSWT CST 116 
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c 


60 


70 

80 


90 


100 


110 


120 

130 


TMFCOSsTFCOST+MftTCOS 

CST 

117 

CONTINUE 

CST 

118 

IF (ITL.6T.0) GO TO do 

CST 

119 

TACWT=0 

CST 

120 

X=XDST*12.0 

CST 

121 

WRITE (6# 190 ) X 

CST 

122 

IF (KINDP.EQ.1) WRITE (6*200) 

CST 

123 

IF (KINDP.EQ.2) WRITE (6*210) 

CST 

124 

IF (KINDP.EQ. 3) WRITE (6*220) 

CST 

125 

IF (KINDP.EQ. 4) WRITE (6*230) 

CST 

126 

IF (KINDP.E0.5) WRITE (6*240) 

CST 

127 

IF (KINDS. EQ.l) WRITE (6*250) 

CST 

128 

IF (KINDS.E0.2) WRITE (6*260)- 

CST 

129 

IF (KINDS. £Q. 3) WRITE (6*270) 

CST 

130 

WRITE (6*280) LEN.WID.LTUBER 

CST 

131 

IF ( (KINDP.EQ.O) .AND. (KINDS. EQ.O) > GO TO 70 

CST 

132 

IF ( (MATLID.LT.1) .OR. (MATLID.GT.15) ) GO TO 70 

CST 

133 

WRITE (6*520) MATLIO* ( MTYPE ( I *MATLID) * 1=1 * 5 ) 

CST 

134 

WRITE (6*290) 

CST 

135 

continue 

CST 

136 

IF (KK.EG.l) GO TO 90 

CST 

137 

IF (KLlC.LT .2) GO TO 100 

CST 

138 

TACWTSTACWT+ACWT 

CST 

139 

TMAWT=TMAWT+MAwT 

CST 

140 

GO TO 100 

CST 

141 

continue 

CST 

1 42 

WRITE (6*300) ANAM ( 1 * N ) » ANAM < 2»N ) 

CST 

143 

RETURN 

CST 

144 

WRITE (6*310) ANAM(1,N)»ANAM(2»N) »KT * ACWT . MA WT, TSTDHk 

.TLBHR.AVERA.CST 

145 

itvrate*coswt*tlacos*tvcost*tfcost»matcos*tmfcos 

CST 

146 

SUMMARY TOTALS AT BOTTOM OF PAGE 

CST 

147 

ttshr=ttshr+tstdhr 

CST 

148 

ttlbhrsttlbhr+tlbhr 

CST 

149 

ttlacosttlaco+tlacos 

CST 

150 

ttvcos=ttvcos+tvcost 

CST 

151 

TTFCOSsTTFCOS+TFCOST 

CST 

152 

TTMCOSSTTMCOS+MATCOS 

CST 

153 

TSTDHRSO 

CST 

154 

tlbhr=o 

CST 

155 

TLACOSSO 

CST 

156 

TVCOSTSO 

CST 

157 

TFCQST-0 

CST 

158 

TMFCOS=0 

CST 

159 

RETURN 

CST 

160 

CONTINUE 

CST 

161 

DO 140 1=1*7 

CST 

162 

AOP(I,l)=STDHR 

CST 

163 

IF (REFCT.EQ.O) GO TO 120 

CST 

164 

AOP{ I ,2) =STDHR/REFCT 

CST 

165 

GO TO 13U 

CST 

166 

CONTINUE 

CST 

167 

AOP( I *2) =0 

CST 

168 

CONTINUE 

CST 

169 

AOP(1,3)sLARATE 

CST 

170 

AOP(1.4)sVRATE*LARATE 

CST 

171 

A0P(I*5)=A0P(I»2)*LARATE 

CST 

172 

AOP (1.6) =A0P (1*2) *A0P (1*4) 

CST 

173 

AOP (1,7) =AOP (1.5) ♦ AOP (1*6) 

CST 

174 
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o o 


CALL ASTDHH 


CST 

175 

140 CONTINUE 


CST 

176 

DO 150 1=1*7 


CST 

177 

TASTDH=TASTDh+AOP( 1*1) 


CST 

178 

TALADH=TALaBh+AOP( 1*2) 


CST 

179 

TASYCO=TASYCO+AOP{ I *7) 


CST 

180 

150 CONTINUE 


CST 

181 

TTMFCO=TTFCOS+TTMCOS 


CST 

182 

1 MUFAC=T AS YCO+TTMFCO 


CST 

183 

ttmfrt=ttmfco/tacwt 


CST 

184 

IF (TTL8HR.EU.0) GO TO 160 


CST 

185 

TTRATE=TTFCOb/TTLBHR 


CST 

186 

tmrate=ttmfcc/ttlbhr 


CST 

187 

T tcos=ttmcos/tmawt 


CST 

188 

1 AVRA=TTLAC0/TTL8HR 


CST 

189 

TTVRAzTTvCOS/TTLdHR 


CST 

190 

T AVFC=TT bHR/TTLBHR 


CST 

191 

GO TO 170 


CST 

192 

160 CONTINUE 


CST 

193 

TTCOS=TTMCOS/TMAwT 


CST 

194 

TAVRArO 


CST 

195 

TT0RA=0 


CST 

196 

TAVFC=0 


CST 

197 

170 CONTINUE 


CST 

198 

TUNITC=TMUF AC/(LEN*WID) 


CST 

199 

TUNWT=TACWT/ lLEN*WID) 


CST 

200 

IF (TALABH.ECl.O) rel=o 


CST 

201 

IF (TALABH.EvJ.O) GO TO 180 


CST 

202 

REL=TASTUH/TALABH 


CST 

203 

160 CONTINUE 


CST 

204 

WRITt (6*320) TACWT»TMAWT.TTSHR 

, TTLBHR . TTLACO *TTVCOF , TTFCOS, 

TTMCOSCST 

205 

lr ttmfco, tasyco 


CST 

206 

IF (KLIC.LT.100) WRITE (6,420) 


CST 

207 

WRITE (6*330) TMUFAC * TUNITC 


CST 

208 

IF (KLIC.LT. 100) WRITE (6,430) 


CST 

209 

WRITE (6*340) TUNWT 


CST 

210 

IF (KLIC.LT.100) WRITE (6,440) 


CST 

211 

WRITE (6*350) TTCOS* TAVRA 


CST 

212 

IF (KLIC.LT.100) WRITE (6*450) 

( AOP ( 1 * J) * J=1 * 7) 

CST 

213 

WRITE (6*360) TTVRA 


CST 

214 

IF (KLIC.LT.100) WRITE (6*460) 

< A0P(2. J) . J=l*7) 

CST 

215 

WRITE (6*370) TTRATE 


CST 

216 

IF (KLIC.LT.100) WRITE (6*470) 

( AOP ( 3* J) * J=1 *7) 

CST 

217 

WRITE (6*380) TMRATE 


CST 

218 

IF (KLIC.LT.100) WRITE (6*480) 

( AOP ( 4 * U ) * J=1 * 7 ) 

CST 

219 

WRITE (6*390) TTMFRT 


CST 

220 

IF (KLIC.LT.100) WRITE (6.490) 

( AOP ( 5. J ) * J=1 *7 ) 

CST 

221 

WRITE (6*400) TAVFC 


CST 

222 

IF (KLIC.LT.100) WRITE (6*500) 

( AOP < 6 » J ) . J=1 * 7) 

CST 

223 

WRITE (6*410) REL 


CST 

224 

IF (KLIC.LT.100) WRITE (6*510) 

( AOP ( 7 . U) * J=1 * 7) 

CST 

225 

RETURN 


CST 

226 



CST 

227 



CST 

228 

190 FORMAT ( 1H1 . 38X . 45HTHERMAL PROTECTION SYSTEM* SPACE SHUTTLE 

STA »FCST 

229 

17.1//) 


CST 

230 

200 FORMAT ( 30X* 51HC0NFIGURATI0N 

PANEL TYPE 1, METALLIC* CORrUGATEDCST 

231 

1) 


CST 

232 
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METALLIC r 

metallic. 


PANEL TYPE 4. REUSABLE 


210 FORMAT ( 30X. 5QHC0NFIGURATI0N PANEL TYPE 2. 

220 FORMAT <30X,S4HCONFIGURATION PANEL TYPE 3. 

1NEO) 

230 FORMAT <30X,58HCONFIGURATION 
1ULAT10N) 

240 FORMAT (30X.40HC0NFIGURATION 

250 FORMAT (30X.75H 

IX EDGE POSTS ) 

260 FORMAT (30X.75H 

1TAL POSTS > 

270 FORMAT (30X.75H 

1N0 FOUR CORNER POSTS ) 

280 FORMAT ( /30X , 20HN0MINAL PANEL SIZE »F4.1»3H X 
1 NOMINAL PANEL STANDOFF OISTANCE ,F4.1»3H IN) 
290 FORMAT (/29X.102HACTUAL MATL STD 

1 MATL * LABOR OVERHD FACTORY MATERIAL 


PANEL TYPE 5. 
STRUCTURE TYPE 1. 

STRUCTURE TYPE 2. 

STRUCTURE TYPE 3. 


HONEYCOMB )CST 
RIB STIFFECST 
CST 

SURFACE inscst 
CST 

ABLATIVE ) CST 

CRUCIFORM REAMS. SlCST 

CST 

FOUR INSET SHEET MECST 

CST 

tee beams, center acst 

CST 

»F4, 1 , 3H FT/30X.33HCST 

CST 

labor labor OV-HD CST 
FABRICAT/4X,7HDESCRIPCST 


HOURS RATE 
COST//) 


RATE 


CST 

CST 

CST 

CST 


2»6X#2HQT » 10X. 10 OH WEIGHT WEIGHT HOURS 

3 PER LB COST COST COST COST 

300 FORMAT (/4X.2A6) 

310 FORMAT ( 4X , A6» A4 . 15. 6X. 2F10 . 3 »F10 .4 . F8 .2 » F6.2 »F7.2 .Flo .2.SF9.2) 

320 FORMAT <//28H TOTAL ACTUAL WEIGHT F12.2.3H LB/1X.27HT0TAL MCST 

1ATERIAL WEIGHT F12.2.3H LB/1X » 27HT0TAL STANDARD HOURS FCST 

212.2. 3H HR/1X.27HT0TAL LABOR HOURS F12.2.3H HR/1X » 27HT0T ACST 

3L LABOR COST F12.2.2H S/1X, 27HT0TAL OVERHEAD COST CST 

4 F12.2.2H $/iX,27HT0TAL FACTORY COST F12.2»2 h $/lX. 27HT0TACST 

5L MATERIAL COST F12.2.2H S/1X. 27HT0TAL FABRICATION COST CST 


6 F12.2.2H */iX,27HT0TAL ASSEMBLY COST 
330 FORMAT (1X.27HTOTAL MANUFACTURING COST 
1 F12.2.8H */SG FT) 

340 FORMAT <JLX,27HtPS WEIGHT 
350 FORMAT ( IX , 27HAVERAGE MATERIAL 
17HAVERAGE LABOR RATE 
360 FORMAT ( IX , 27HAVERAGE 
(1X.27HAVERAGE 
(1X.27HAVERAGE 
(1X.27HAVERAGE 
(1X.2 7HAVERAGE 
(1X.2BHAVERAGE 
UH+,B7X,19HFINAL 
(1H+, /8X.52HSTD 


F12.2.2H 5) 
F12.2.2H 4/1X.27HTPS 


370 

380 

390 

400 

410 

420 

430 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
1EMBLY) 
440 FORMAT 


F12.2.HH 
OVERHEAD RATE 
FACTORY RATE 
MFG. RATE 
MFG. RATE 
MFG. REALIZATION 
ASSEMBLY REALIZATI0NFU.2) 
ASSEMBLY COST) 


F12.2.9H LB/SQ 
F12.2.UH */Lo 
*/HR ) 

F12.2, 11H VHR 
F12.2.11H T/HR 
F12.2.11H */HR 
F12.2.11H S/lb 
F12.2) 


FT) 


CST 

COSTCST 

CST 

CST 

/1X.2C5T 

CST 


TOTAL LABOR OV-HD LABOR OVERHD 


UH+.65X.63HTASK 


450 

460 

470 

480 

490 

500 

510 

520 


COST 


COST) 


FORMAT (1H+.62X.10HSETUP 
FORMAT <1H+.o2x»10HCLAMP 
FORMAT <1H+»o2x. 10HJNSPECT 
FORMAT (1H+.62X.10HDISASSY 
FORMAT ClH+, o 2x.l0HCLEAN 
FORMAT (1 H+. o 2X.10HSECURE 
FORMAT ( 1H+. o2x » 1 OH INSPECT 
FORMAT ( /30X , 40HPRIMARY PANEL 
END 


HOURS HOURS RATE PATE 

F10.4.F8.2»F6.2.F7,2.3F9.2> 

F10.4,F8.2.F6,2»F7.2»3P9.2) 

F10.4.F8,2.F6.2.F7.2.3F9.2> 

F10.4.FS.2,F6,2.F7.2.3P9.2> 

Fl0,*i.F8.2.F6,2.F7.2.3P9,2) 

F10.4.F8.2»F6.2.F7.2»3F9.2) 

F10.4.F8.2.F6,2»F7.2*3F9.2> 

/ STRUCTURE MATERIAL TYPE 


CST 
CST 
CST 
CST 
CST 
CST 
CST 
ASSCST 
CST 
COSTCST 
CST 
CST 
CST 
CST 
CST 
CST 
CST 
CST 

.12, 5*6) CST 
CST 


233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 
283 
284- 
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subroutine costot 





CTT 

1 






ctt 

2 

common/comtoi / 





CTT 

3 

1 AT » 6 I 

* CT 

*CF 1 

, EGTH 

,Et * » 

CTT 

4 

2FTH * F TS 

*K1 

*K2 

»K3 

, Np& , 

CTT 

5 

30S #STPS 

,tunwt 




CTT 

6 

COMMON/STChR/ 





CTT 

7 

1EOP ,LmRATE 

, MATLlD 

,NN 

»PI 

*Refct , 

CTT 

8 

2STUHK .VkATE 





CTT 

9 

commqn/wta/ 





CTT 

10 

1A * B 

, CHORD 

, Dl ABHl 

, DlAPOH 

.OlARGH , 

CTT 

11 

20IAPOH fQlApTH 

9 




CTT 

12 

30LPANL * DwPANL 

»EEDGE 

,E1RIB 

* E2R IB 

,E3RIB , 

CTT 

13 

46B0LT » GCLAMP 

,GINSPT 

.GINSUL 

, GNUTPL 

»G*fASH * 

CTT 

14 

5HBEAMA » HFNG1 

♦HFNG2 

,hplate 

* HPOST 

*HRI0 ♦ 

CTT 

15 

6HRING .I^FNGl 

, IDFNG2 

» K I NDP 

, KINDS 

»lbmla , 

CTT 

16 

7LBHLC ,LdMSA 

,LBMSC 

« LCORN 

.LDOUBR 

.LENGTH , 

CTT 

17 

8LPANL iLPOST 

, LRIBL 

♦LRIBS 

.LSEAL 

.LSTFNR , 

CTT 

18 

9LTUBt * Nk IBS 

*NXA 

, N Y A 

.OOFNGl 

,OOFNG2 * 

CTT 

19 

iOOPOSR , OuPOST 

,ODRlNG 

,PBM 

, PCORE 

,PEDGE , 

CTT 

20 

SPINS1 »PlNS2 

,PINS3 

,PPOST 

, PRIB 

.PSFAL , 

CTT 

21 

5PSKIN1 rPSKjN2 

- * PTUBE 

' »R 

.RADIUS 

#5 * f 

CTT 

22 

STBMLA , TbMLC 

, tbmsa 

»TBMSC 

, TCORE 

,T C ORN , 

CTT 

23 

STOOubC * T uOUBP 

»TED6E 

, tfngi 

, TPLATE 

,tplug , 

CTT 

24 

5TPO&T »TkIhL 

, TRIbS 

, TR ING1 

, TRING2 

,tseal , 

CTT 

25 

STTUBE * TwRIR 

,T1RIB 

*T2RIB 

, WBEAMA 

,wb«la , 

CTT 

26 

SWBMLt » wBWSA 

, W8MSC 

, WCORN 

, WCORR 

, wdoubp , 

CTT 

27 

SwDOUBR » WIDTH 

,WPANL 

* WPLATE 

, WPOST 

,'WRiaL , 

CTT 

28 

* WRIBS * WbEAL 

.wstfnr 

,ZFAS 



CTT 

29 






CTT 

30 

DIMENSION CF<15»3> 





CTT 

31 






CTT 

32 

REAL K1 ,K2 

,K3 

,NPA 



CTT 

33 






CTT 

34 

DATA CF / 





CTT 

35 

1 1 • 3 f 3 • 5 » 3*2# 3. 

1 * 4.0* 5 

.2* 17.* 17, 

* 3.2* 19. 

» 1.8, 2.2, 2.2* 

CTT 

36 

2 b • 0 * 3,0* 





CTT 

37 

3 2# If 6* U ^ 3f 3« 

1* 4.7* 6 

.9* 17. » 17. 

* 4.3* 19. 

* 2.6, 3.0, 3.0* 

CTT 

30 

4 10,, 4.6* 





CTT 

39 

5 1*0* 3*0* 2*5, 1. 

9* 3.0* 4 

•2* 12. * 12. 

* 2,5* 14 . 

* 1.4, 1.7, 1.7* 

CTT 

40 

6 5.0, 2.8/ 





CTT 

41 






CTT 

42 

IF (KINOP.LT.1.0R. 

KINDP.GT. 

5) RETURN 



CTT 

43 

IF (MATIIO.LT.I.OR 

.MATLlD.GT.15) RETURN 



CTT 

44 

IF (CF1.GT.0) GO TO 10 




CTT 

45 

kindppskindp 





CTT 

46 

IF (KINDP.GT.3) KINDPP=2 




CTT 

47 

CF1=CF(MATLID*KINDPP) 




CTT 

40 

) CONTINUE 





CTT 

49 

TEN6TH=l.E+6 





CTT 

50 

wtps=stps*tunwt 





CTT 

51 

TFU=CF1*K1*WTPS**AT 




CTT 

52 

UTFu=TEN6TH*TFu/STPS 




CTT 

53 

£DD=K2*WTPS**BT 





CTT 

54 

UEOD=TENbTH*EDD/STPS 




CTT 

55 

TOOL=K3*WTPS»*CT 





CTT 

56 

UT00L=TEN6TH*T00L/STPS 




CTT 

57 

GTH=£GTH*TFU 





CTT 

58 
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UGTHSTEN6TH*GTH/STPS 

CTT 

59 

FTAsFTH*TFU 

CTT 

60 

UFTA=TEN6TH*FTA/STPS 

CTT 

61 

FTSRPrFTS*TFU 

CTT 

62 

UFTSRP=T£N6TH*FTSRP/STPS 

CTT 

63 

pa=npa*tfu 

CTT 

64 

UPAsTEN6TH*PA/STPS 

CTT 

65 

TACs£TA*TFU 

CTT 

66 

UTAC=tEN6TH*TAC/STPS 

CTT 

67 

RSRP=OS*TFU 

CTT 

68 

URSRP=TENbTH*RSRP/STPS 

CTT 

69 

tntpscsedc+toql+gth+fta+ftsrp . . 

CTT 

70. 

UTNTPS=TENbTH*TNTPSC/STPS 

CTT 

71 

trpc=pa+tac 

CTT 

72 

UTRPC=TEN6TH*TRPC/STPS 

CTT 

73 

troc=rsrp 

CTT 

74 

UTR0C=TEN6TH*TR0C/STPS 

CTT 

75 

ttpsc=tntpsc+trpc+troc 

CTT 

76 

UTTPSCsTENbTH*TTPSC/STPS 

CTT 

77 

WRITE (6,20) UTFU#UEDD,UTOOL»UGTH,UFTA,UFTSRP 

CTT 

78 

WRITE (6*30) 

CTT 

79 

WRITE (6,40) UTNTPS,UPA,UTAC 

CTT 

80 

WRITE ( 6 » 30 ) 

CTT 

81 

WRITL (6,50) UTRPC,UKSRP 

CTT 

82 

WRITE (6*30) 

CTT 

83 

WRITE (6*60) UTROC,UTTPSC,NPA 

CTT 

84 

RETURN 

CTT 

85 


CTT 

86 


CTT 

87 

FORMAT <1H1,13X,40HTHERMAL PROTECTION SYSTEM 

COST SUMMARY// /48X , CTT 

88 

112HC0ST S/SO FT///10X,33HTHEORETICAL FIRST UNIT 

COST <TFU)»F8.2///CTT 

89 


210X»18HN0N RECURRING C0ST//1UX,8HED AND D» 33X,F9.2/loX,7HTOOLlNG»3CTT 90 
34X#F9 ,2/10X# 20H6ROUND TEST HARDWARE, 21X,F9.2/10X,20HFLlGHT TEST APCTT 91 
4TICL£S,21X,F9.2/10X*20HFLIGHT TEST 5 AND RP,21X,F9.2> CTT 92 

30 FORMAT (52X»ttH — ) CTT 93 

40 FORMAT ( 10X » 27HTOTAL NONRECURRING TPS COST, 14X,F9.2///10X,2sHRECURCTT 94 
1RING PRODUCTION COST//10X , 50HSUSTAINING ENGINEERING - INCTT 95 

2CLUDED IN TFU/10X,50HSUSTAINING TOOLING - INCLUDED ICTT 96 

3N TFU/10X»19HPRODUCTION ARTICLES, 22X»P9.2/10X,23HTEST ARTICLE CONVCTT 97 
4ERSlON,ldX,F9.2) CTT 98 

50 FORMAT (10A.31HT0TAL RECURRING PRODUCTION COST,10X,F9.2///l0X,25HRCTT 99 

1ECURKING OPERATIONS COST//10X , 22HREPLENISHMENT S AND RP,19X,F9.2> CTT 100 
60 FORMAT ( 10X, 31HTOTAL RECURRING OPERATIONS COST , 10X ,F9.2////lOX , 23HCTT 101 
1T0TAL TPS PROGRAM COSTS* 18X, F9. 2 » //////1QX ,26HNUMBE* OF PPOdUCTIONCTT 102 
2 UNITS » 16X, F6 • 1 ) CTT 103 

END CTT 104 “ 
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c 


SUBROUTINE wTTPS 


C 

C 


C 


COMMON /LINK/ NSECT. TC.TS.TSKIN1.TSKIN2.TINS1»TINS2*TINS3 
COMMON/STOHR/ 


ItOP 

.LARATE 

* MATL ID 

»NN 

.PI 

.Refct 

2STDHK 

, VkAtE 





COMmuN/WTA/ 





1A 

f ' 

.CHORD 

.DIABH1 

.DIAPOH 

.Dl ARGH 

2DIAPGH 

,uIAPTH 

* 




30LPANL 

* DwPANL 

,EEDG£ 

.E1RIB 

.E2RIB 

*E3PIR 

4GB0L( 

.gclamp 

* GINSRT 

♦GINSUL 

.GNUTPL 

.GWASH 

5HBEAMA 

,hfngi 

* HFNG2 

.HPLATE 

. HPOST 

.Hrib 

6HRING 

*I.:PNG1 

.IDFNG2 

*K INDP 

.KINDS 

.LbMLA 

7LBMLC 

*LBMSA 

. LBMSC 

.LCORN 

. LDOUBR 

♦length 

8LPANL 

,lpost 

.LRIBL 

* LR IBS 

.LSEAL 

.lstfnr 

9LTUBl 

.NRldS 

. NXA 

. NYA 

, OQFNGl 

»0[>FNG2 

SODPOSR 

.oupost 

* coring 

*PBM 

. PCORE 

.PEDGE 

$PINS1 

*P1NS2 

* PINS3 

, PPOST 

.PRIB 

.PSEAL 

SPSKINI 

*PSKIN2 

»PTUBE 

* R 

.RADIUS 

.5 

stbmla 

*tbmlc 

» T6MSA 

»T8MSC 

. TCORE 

.TcORN 

4TOOUBC 

.TDOUBP 

.TEDGE 

» tfngi 

.T PL ATE 

.tplug 

STPOST 

*TRI6L 

.TRIBS 

.TRING1 

.TRING2 

.tseal 

STTUBt 

* TwRIB 

.T1RIB 

.T2RIB 

.wbeama 

.WbMLA 

tWBMLC 

, rtdMsA 

» WBMSC 

* WCORN 

. WCORR 

. WQOUBP 

SWDOUBR 

» WIDTH 

* WPANL 

.wplate 

, WPOST 

.WRTBL 

SWRIBS 

» WSEAL 

»wstfnr 

*ZFAS 



COMMON/WTCOST/ 





1ACWT 

. A'^UV 

* A0P(7.7) 

» I TL 

. KK 

.KlIC 

2C0SWT 

*K.r 

#len 

.LTUBER 

.MAWT 

.N 

3PEXT 

* Tt_XT 

* W ID 

* ZZUB 




DIMENSION PSK IN ( 15) 


REAL IOFNGl .IOFNG2 . IDRING *LBMLA .LBMLC .LBMSA .l^MSQ 

REAL LDOUBR .LEN .LENGTH »LPANL .LPOST .LRIdL *LRIBS 

REAL LSTFNR .LTUdE .LTUBER .NXA .NYA , MAWT 

DATA PSK IN / 

1 .102 * • 160 1 .297 . . 297 . .298. ,306. .326* .343, .333* .604 

2 .27b* .066* .067* .300/ 


initialize insulation variables 

WTINS1=0 

wminsi=o 

WTINS2=0 

WMINS2=0 

WTINS3=0 

*MINS3=0 

initialize panel variables 

WTCQKE=0 

WMCORE=0 

WTCORR=0 

WMCORR=0 

WTEDG2=0 

WMEOG2=0 

»TEOG3=0 


WTT 1 
WTT 2 
WTT 3 
WTT 4 

* WTT 5 

WTT 6 
WTT 7 

* WTT 8 

WTT 9 

» WTT 10 

* WTT 11 

* WTT 12 

* WTT 13 

, WTT 14 

* WTT 15 

. WTT 16 

* WTT 17 

* WTT 18 

* WTT 19 

» WTT 20 

» WTT 21 

» WTT 22 

* WTT 23 

» WTT 24 

» WTT 25 

WTT 26 
WTT 27 
» WTT 28 

* WTT 29 

WTT 30 
WTT 31 
WTT 32 
WTT 33 

, LCORN WTT 34 

,LSEAL WTT 35 

WTT 36 
WTT 37 
WTT 38 
, .283* WTT 39 

WTT 40 
WTT. 41 
WTT 42 
WTT 43 
WTT 44 
WTT 45 
WTT , 46 
WTT 47 
WTT 48 
WTT 49 
WTT 50 
WTT 51 
WTT 52 
WTT 53 
WTT 54 
WTT 55 
WTT 56 
WTT 57 
WTT 58 
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on 


WMEDG3=0 

*TEXT=0 

*MEXT=0 

WTRIBS=0 

wmribsso 

WTSKINsO 

UMSK1NS0 

WTSKN2=0 

*MSKN2=0 

VOLCORsO 

INITIALIZE STRUCTURE VARIABLES 
teTBMLAsO - ' 

WMBMLASO 

wTBMLC=0 

teMBMLCsO 

WTLRIB=0 

wmlrib=o 

wTB^SA=0 

wNBMSArO 

WTBMSC=0 

*MBMSC=0 

WTSRIB=0 

WMSRIB=0 

WTCORN=0 

WNCORNSO 

WTDOUsO 

*MDOU=0 

WTDOUB=0 

tfMDOUB=0 

WTFNGA=0 

mMFN6A=0 

#tfngc=o 

*MFNGC=0 

*TFNG2=0 

WMFNG2=0 

*thina=o 

*mhina=o 

wthinb=o 

W*HXNB=0 

ttTHINC=0 

wmhinc=o 

WTlNS=0 

WMlNSsO 

*TPLGA=0 

wmplga=o 

wtplgc=o 

WMPL6CSO 

WTPLT1=0 

WMPLT1=0 

WTPLT2=0 

WMPLT2=0 

WTPOSR=0 

WMPOSR=0 

gTPOSAsO 

»MPOSA=0 

WTPQSB=0 

WMPOS8=0 


WTT 59 
WTT 60 
WTT 61 
WTT 62 
WTT 63 
WTT 64 
WTT 65 
WTT 66 
WTT 67 
WTT 68 
WTT 69 
WTT 70 
WTT 71 
WTT 72 
WTT 73 
WTT 74 
WTT 75 
WTT 76 
WTT 77 
WTT 78 
WTT 79 
WTT 80 
WTT 81 
WTT 82 
WTT 83 
WTT 84 
WTT 85 
WTT 86 
WTT 87 
WTT 88 
WTT 89 
WTT 90 
WTT 91 
WTT 92 
WTT 93 
WTT 94 
WTT 95 
WTT 96 
WTT 97 
WTT 98 
WTT 99 
WTT 100 
WTT 101 
WTT 102 
WTT 103 
WTT 104 
WTT 105 
WTT 106 
WTT 107 
WTT 108 
WTT 109 
WTT 110 
WTT 111 
WTT 112 
WTT 113 
WTT 114 
WTT 113 
WTT 116 
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10 


wtposc=c 


WTT 

117 

WMPOSC=0 


WTT 

118 

«TRNt»l=0 


WTT 

119 

WMKnG1=0 


WTT 

120 

*TRi*<»2=0 


WTT 

121 

wMKNto2=0 


WTT 

122 

• TSLAt_ = A 


WTT 

123 

oMSt.AL-0 


WTT 

124 

#tfasa=o 


WTT 

125 

AbA=0 


WTT 

126 

»TFAS6=0 


WTT 

127 

WMFASB=0 


WTT 

128 

«TFaSC=0 


WTT 

129 

«MFAbC=0 


WTT 

130 



WTT 

131 

INlTIALl^f TCTAL VARIABLES 


WTT 

132 

WTINSL=0 


WTT 

133 

WMINSL=G 


WTT 

134 

wTPANL=0 


WTT 

135 

rtMPANL=0 


WTT 

136 

*TSTK=0 

_ . . 

WTT 

137 

«MSTK=0 


WTT 

138 



WTT 

139 

10ENI IPICATION OF MATERIAL TYPE AND 

ASSIGNMENT OF 

MATERIAL OENSITYWTT 

140 

FOR TPS PANEL AMO STRUCTURE 


WTT 

141 



WTT 

142 

-'SMNlrO 


WTT 

143 

IF (MATLID.LT.1.0R.MATLID.GT.15) GO 

TO 10 

WTT 

144 

PSKIN1=PSKIN<MaTLID) 


WTT 

145 



WTT 

146 

CONTINUE 


WTT 

147 

PCORE=.033*PSKIN1 


WTT 

148 

►'SKlN2=PSKItu 


WTT 

149 

PR IB=PSK INI 


WTT 

150 

P EDGE=PSKIN1 


WTT 

151 

PP0ST=PSKIN1 


WTT 

152 

PBMsPSKINl 


WTT 

153 

PSEAL=PSnIN1 


WTT 

154 

PTUBt=PSKlNl 


WTT 

155 

PBONO=,07 


WTT 

156 



WTT 

157 



WTT 

158 

GENERAL TERMS USED THROUGHOUT 


WTT 

159 

p l4=.7654 


WTT 

160 

UIABH1=.19 


WTT 

161 

OIABH2S.50 


WTT 

162 

0IAPTHS.50 


WTT 

163 

0IAPGH=,19 


WTT 

164 

0IAP0HS.I9 


WTT 

165 

UIARGH=.i9 


WTT 

166 

EEDGE=1,20 


WTT 

167 

HPLATE=.50 


WTT 

168 

LOOUB«=2.00 


WTT 

169 

*=.17 


WTT 

170 

I B0ND=. 010 


WTT 

171 

TBRAZEr.uOB 


WTT 

172 

TPLUG=.2S 


WTT 

173 

»(DOUbR=l,50 


WTT 

174 
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WDOUBP=1.00 WTT 175 

IF (RADIUS. EW.O. ) ClKCUMrO WTT 176 

IF (RADIUS. EW.O.) GO TO 20 WTT 177 

CIRCUM=RADIUS*AC0S(1-(CH0K0**2)/(2.*K*DIUS**2) ) WTT 178 

20 CONTINUE WTT 179 

HPOST=WPOST WTT 180 

IDRING=lDFNG2-2.*TTUBE-2.*( IDFNG2-0DP0SR) WTT 181 

LENsLENGTH/12. WTT 182 

L8MLA=LENGTH-1.75 WTT 183 

LBMLC=LENGTH-.75 WTT 184 

LBMSA=WIDTH-1.75 WTT 185 

LBMSC=WlDTH-,75 WTT 186 

SsR+ . 365*H8 E aMa WTT 187 

LC0RN=2.*HPLATE+2.*S WTT 188 

LPANL=LENGTH-DLPANL-A WTT 189 

LPOST=TINS1+TINS2+TINS3+B-.30 WTT 190 

LRIBL=LBMLC WTT 191 

LRIBS=LBMSC WTT 192 

LSEAL=WlOTH WTT 193 

LSTFNR=LPOST-.bO WTT 194 

LTUBER=TINS1^TINS2+TINS3+B WTT 195 

NXA=(LPANL+DLPaNL-4.*DIABH1)/(8.*DIABH1) WTT 196 

NYA=(LSEAL-4.*DIABH1)/(8.*DIABH1> WTT 197 

NX=NXA+.b WTT 198 

NY=NYA+.b WTT 1^9 

NXA=NX WTT 200 

NYA=NY WTT 201 

00FNGl=0DP0Sr+.6U WTT 202 

0DFNG2-IUFNG«i + . 50 WTT 203 

ODTU 6 E=ODPOSr- 2 .*TPOST WTT 204 

TFNG2=TFNG1 WTT 205 

WID=wIDTH/12. WTT 206 

WPANL=WI0TH-UWPANL-A WTT 207 

wBMLA=2 • * ( #B£ A|V;A+R-«S+ ( (S~R ) **2+HBEAmA**2) ** . 5) ♦ . 32 WTT 208 

wBMSA=WPMLA WTT 209 

WC0Rn=R+S + ( ( S**K ) **2+HBEAMA**2 ) **,. 5 WTT 210 

WCORK=WPANl.+ , j R IBS* ( C IRCUM— CHORD ) WTT 211 

WPLATEsWBFAMm+^^R WTT 212 

WSEAL=A+.5 WTT 213 

WSTFNR=WP0ST/3. WTT 214 

WTBONO=(lPANu+DLPANL)*(WPANL+DWPANL) *TB0ND*PBOND WTT 215 

IF (KINDP.EQ . 5) WTB0ND=0 WTT 216 

WTBR21=LPANL*(NRIBS+1)*.5*TBRAZE*PSKIN2 WTT 217 

WTBK22=(lBML«*.38-2.*NXA*PI4*0IABh1**2)*TBRAZE*P8V WTT 218 

WTBRZ3=(LD0u;.sR*WD0UBR-PI4*DIABHl**2)*TBRAZE*PBM WTT 219 

WTBRZ4=U.BMSA*.3B-2.*NYA*PI4*DIABH1**2)*TBRAZE*PBM WTT 220 

WTBRZ5=(4.*<LC0RN*(R+S)-R**2-S**2>+WQ0UBP**2-PI4*DIAPGH**2)*TBKAZEWTT 221 
1*PBN, WTT 222 

WTBRZ6=2.*PI*0DP0ST*TP0ST*TBRAZE*PP0ST WTT 223 

WT8RZ7=2.*PI*00P0ST*LTUBE*TBRAZE*PP0ST WTT 224 

WTBRZo=U_PANL+wPANL-EEDGE)*EEDGE*TBRAZE*PEDGE WTT 225 

WTBRZ9=NRIBS*(LPANL-EE0GE)*(E2RIB+TwRIB)*TBRAZE*PRIP WTT 226 

IF (EZRIu.EQ.O. ) WTBRZ9=0 WTT 227 

WTBR10=2.*WPANl*(EEDGE-TEDGE)*TBRaZE*PEDGE WTT 228 

WTBR11=4.*(WP0ST*HP0ST-2.*PI4*0IAP0H**2)*TBRAZE*PP0ST WTT 229 

*TBR12=LbMLC+TRIBL*TBRAZE*P8M WTT 230 

wTBR13=LBMSC*TRIBS*TBRAZE*PBM WTT 231 

#TBR14=P1*(0CP0SR-2.*TTUBE)*HRING*TBRAZE*PP0ST WTT 232 
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WT8R15=PI*0DP0SR*HFN62*TBRAZE*PP0ST WTT 233 

WT&R16=PI*00P0ST*TRING1*TBRAZE*PP0ST WTT 234 

rtTBRi7=PX*OOPOST*HFNGl*TBRAZE*PPOST WTT 235 

0=° WTT 236 

N =u WTT 237 

I T L=0 WTT 238 

WTT 239 

*** WTT 240 

*** EQUATIONS FOR INSULATION WTT 241 

*** WTT 242 

WTT 243 

*** EQUATION FOR INSUL 1 WTT 244 

WTT 245 

IF (TINS1.EQ.0) GO TO 30 WTT 246 

WTINS1=LENgTH*WIDTH*TINS1*PINS1/1728. WTT 247 

WMINSl=(LENGTH+2. >*<WIDTH+2. > *TINS1*PINS1/1728. WTT 248 

WTT 249 

*** EQUATION FOR INSUL 2 WTT 250 

WTT 251 

30 IF (TINS2.EQ.0) GO TO 40 WTT 252 

WTINS2=L£NGTM*WI0TH*TINS2*PIIMS2/I72fi. WTT 253 

WMlNS2=(LENGTH+2. )*(WI0TH+2. )*TINS2*PTNS2/1728. WTT 254 

WTT 255 

*** EQUATION FOR INSUL 3 WTT 256 

WTT 257 

40 IF (TINS3.EQ.0) GO TO 50 WTT 258 

*TINS3=LEN(,TH*WI0TH*TINS3*PINS3/1728. WTT 259 

wMINS3=(LENGTH+2. )*<WI0TH+2. )#TINS3*PINS3/1728. WTT 260 


WTT 261 
WTT 262 
WTT 263 
WTT 264 
WTT 265 
WTT 266 
WTT 267 
WTT 268 
WTT 269 
WTT 270 
WTT 271 
WTT 272 
WTT 273 
WTT 274 
WTT 275 
WTT 276 
WTT 277 
WTT 278 


KLIC=2 WTT 279 
IF (ACWT.GT«u.) CALL COST WTT 280 
ACWTsWTlNS2 WTT 281 
MAWT=WMINS2 WTT 282 
KK=42 WTT 283 
KTs: l WTT 284 

WTT 285 

IF (ACWT.GT.u.) CALL COST WTT 286 
ACWT=WTINS3 WTT 287 
MAWT=WMINS3 WTT 288 
KK=43 WTT 289 
KT=1 WTT 290 


*** TOTAL INSULATION WT 

50 WTINSL=WTINS1+WTINS2+WTINS3 
WMINSL=WMINS1+WMINS2+WMINS3 
ACWT=WTINSL 
MAWT=WMINSL 
KK = 1 
KT=1 
N- 1 

KLIC=0 

IF lACWT.GT...) CALL COST 

IF UCWT.GT.o) ITL = 1 

ACWT=WTINS1 

MAWT=WMINS1 

KK=41 

KT=1 
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fcU 

*** 

70 


*** 

80 


*»* 

90 


**# 

100 


*** 

110 


**# 

*** 

*** 

*** 

120 


♦ ** 


N=4 

WTT 

291 

IF (ACWT.GT.O. ) CA_L COST 

WTT 

292 

ACWT=WTINSL 

WTT 

293 

ma#t=wminsl 

WTT 

294 

KK=40 

WTT 

295 

KT=1 

WTT 

296 

N=23 

WTT 

297 

KLIC=1 

WTT 

298 

IF (ACWT.GT.u) CALL COST 

WTT 

299 

IF < (KINDP.LT.l) .OR. (KIN0P.GT.5) ) GO TO 210 

WTT 

300 


WTT 

301 


WTT 

302 

F0RTKAN STATEMENT NUMBER ASSIGNMENTS FOR PANELS 

WTT 

303 


WTT 

304 

CONTINUE 

WTT 

305 

GO TO (7u»80r90#100»110) > KINDP 

WTT 

306 


WTT 

307 

KINOP = 1» CORRUGATED METALLIC PANEL 

WTT 

308 


WTT 

309 

CONTINUE 

WTT 

310 

J-J+l 

WTT 

311 

GO TO ( 120 » 1 /U # 200 ) » J 

WTT 

312 


WTT 

313 

KINDP = <:» HONEYCOMB METALLIC PANEL 

WTT 

314 


WTT 

315 

CONTINUE 

WTT 

316 

J=J+i 

WTT 

317 

GO TO (130.1b0,170»180*200) . J 

WTT 

318 


WTT 

319 

KINDP = 3* RIB STIFFENED METALLIC PANEL 

WTT 

320 


WTT 

321 

CONTINUE 

WTT 

322 

J-d+1 

WTT 

323 

GO To (IhO'IoO'170'200 ) * J 

WTT 

324 


WTT 

325 

KINDP = 4* REUSABLE SURFACE INSULATED PANEL (RSI) 

WTT 

326 


WTT 

327 

continue 

WTT 

328 

J=J+ 1 

WTT 

329 

GO TO <130»I50»170»180»190f2U0>» J 

WTT 

330 


WTT 

331 

KINDP = o» ABLATIVE PANEL 

WTT 

332 


WTT 

333 

continue 

WTT 

334 

0=0+1 

WTT 

335 

GO TO (li>0*170»190#200) * J 

WTT 

336 


WTT 

337 


WTT 

330 

EQUATIONS FOR PANELS 

WTT 

339 


WTT 

340 

EQUATION FoR CORRUGNS (CORRUGATIONS) 

WTT 

341 


WTT 

342 

CONTINUE 

WTT 

343 

#TC0RR=LPANL+WC0RR*TSKIN2*PSKIN2+WTBRZ1 

WTT 

344 

WMCORR=(i_ENGTH + 1 . )*( WCORR + 1 . ) * (TSKIN2+ . 005 ) ♦PSKIN2 

WTT 

345 

GO TO 60 

WTT 

346 


WTT 

347 

EQUATION FOR EDGES (EDGE MEMBERS 2) 

WTT 

348 


1-160 



non nor. non non non non 


W TT 349 

130 CONTINUE WTT 350 

WT£DG2=2 . * ( LPANL + WPANL+4 . *TEDGE-2 . *EED6E> * ( TCORE+EEPGE ) *TFDGE*PEDGWTT 351 

1E+WTBKZ8 WTT 352 

*MEUG2=2 . * ( UPANL+ . 5+WPANL+ .5 ) * < TCORE+EEDGE+ . 25 ) * ( TEPGF+ . U05 ) * p EDGEWTT 353 

GO TO 60 WTT 354 

WTT 355 

*** EQUATION FOR EDGES (EDGE MEMBERS 3) WTT 356 

WTT 357 

140 CONTINUE WTT 358 

WTEQG3=2.*WPaNL*(HRIB+TEDGE+EEDGE)*TEDGE*PEOGE+WTBR10 WTT 359 

WM£DG3=2.* (WpANL+1. )*(HRIB+T£OGE+EEDGE+.25)*(TEDGE+.005 )*PEdGE WTT 360 

GO TO 60 WTT 361 

WTT 362 

*** EQUATION FOR HONEYCOMB CORE WTT 363 

WTT 364 

150 CONTINUE WTT 365 

WTCOKE=(lPANl-EEDGE)*(WPANL-EEDGE)*TC0RE*PC0RE WTT 366 

IF (MNDP.EQ.5) TCORErTEXT WTT 367 

IF (KIN0P.EQ.5l WTCORE=(LPANL<fDLPANL)* (WPANL+DwPANL> *TCORE*PCORE WTT 368 

WMCOKE=(LENGTH+l. )*<wIOTH+l. )*(TC0RE-*-.25)*PC0R£ WTT 369 

IF (PCORE.EQ.O) GO TO 60 WTT 370 

VOLCORrWTCORE/PSKINl WTT 371 

IF (KINDP.EQ.4) VOLCORsO WTT 372 

GO TO 60 WTT 373 

•WTT 374 

*** EQUATION FOR RIBS WTT 375 

. WTT 376 

160 CONTINUE WTT 377 

WTRI6S“NRI6S* (LPANL-EEOGE ) * (E1R IB*TlRlB+E2R IB*T2R IB+E3R I0*T iRlB+HRWTT 378 
lIB*TWRie>*PRiB+WTBRZ9 WTT 379 

WMRIBS=NHlbS*LPANL*(ElRIB*(TlRlB+.005)+E2RIB*(T2RIB+.005)+E3RId*(TWTT 380 
HRIb+.005)+(HRlB+.l)*(TWRlB+.005) >*PRIB ' WTT 381 

GO TO 60 WTT 382 

WTT 383 

+** EQUATION FOR SKIN WTT 384 

WTT 385 

170 CONTINUE WTT 386 

IF (KINOS.EQ.O) WTSKIN=(LPANL+0LPANL)*(WPANL+DWPANLUTSKIN1*PSKIN1WTT 387 
IF (KINrS.EQ.l) WTSK1N=( (LPANL+DLPANL) *(WPANL+0WPANL)-{NXA*PI4*DIAWTT 388 
1BH1**2) )*TSKiNi*PsKINl WTT 389 

IF (KINDS. EQ. 2) WTSKIN=< ( UP ANL+DLPANL ) * (WPANL+DWPANL ) - ( 4 . *P T <+*DI APWTT 390 
1TH**2) )*TSKIN1*PSKIN1 WTT 391 

IF (KINDS. EQ. 3) WTSKIN=( (LPANL+OLPANL) * < WPANL+DWPANt >-(Pl4*Dl ARGH*WTT 392 


1*2) )*TSK1N1*PSKIN1 

WMSKIN=(LENGTH+,1)*(WI0TH+,1)*(TSKIN1+.005)*PSKIN1 
GO TO 60 

*♦* EQUATION POR HONEYCOMB INNER SKIN 
180 CONTINUE 

WTSKN2=LPANL*WPANL*TSKIN2*PSKIN2 

WMSKN2= ( LPANl+1 . ) * ( WPANL+1 . ) *ITSK IN2+ , 005 ) *PSKIN2 
GO TO 60 

*** EQUATION FOR EXTERNAL INSULATION OR ABLATIVE MATERIAL 
190 CONTINUE 


WTT 393 
WTT 394 
WTT 395 
WTT 396 
WTT 397 
WTT 398 
WTT 399 
WTT 400 
WTT 401 
WTT 402 
WTT 403 
WTT 404 
WTT 405 
WTT 406 
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WTEXT=< (LENGTH*WlOTN*TEXT)-VOLCOR)*PEXT+WTBOND 
WMEXT= ( LEN^TH+1 . ) * ( WIOTH+ 1 . ) * ( TEXT-*- . 25 ) *PE XT 
GO TO 60 

*** EQUATION FOR TOTAL PANEL 
200 CONTINUE 

KKTPANL=WTCORE+WTCORR-*-WTEOG2 + WTEDG3+WTRIBS+WTSKIN+WT5KM2+WTExT 

WMPANL=WMC0RE+WMC0RR+WMEDG2+*MEDG3+WMRIBS+WMSKIN+*MSkN2+WMExT 

ACWT=wTPANL 

MAWTSWMPaNl 

KK=1 

KT = 1 

N=5 

KLXCSO 

IF ( ACwT ,GT • u • ) CALL COST 

IF (ACWT.GT.u) ITL=1 

ACWTSWTCORK 

MAWT=WMCORW 

KK=12 

KT=1 

N=6 

KLIC=2 

IF (ACWT.GT.u.) CALL COST 

ACWT=WTEuG2 

MAWT=WMEDG2 

KK=23 

KT=4 

N=7 

IF (ACWT.GT.u.) CALL COST 
ACWTSWTE0G3 
MAWTSWMEQG3 
KK = 33 

KT=2 

N=7 

IF (ACWT.GT.U.) CALL COST 

ACWT=WTCORE 

MAWT=WMCORE 

KK=2S* 

KT=i 

N=6 

IF (ACWT.GT.u.) CALL COST 

ACWT-wTR IBS 

MAWT=WMPlBS 

KK=32 

KT=NRIBS 

N=9 

IF (ACWT.GT.U.) CALL COST 
AC WTswTSK I N 
MAWT=WMSKIN 
IF (KINDP.EQ.l) KK = H 
IF OUNDP.EQ.2) KK=21 
IF (KIN0P.EQ.3) KK=31 
IF (MNDP.EQ.4) KK=21 
IF (MN0P.E0.5) KK=21 
KT = 1 
N=I0 

IF (ACWT.GT.u. ) CALL COST 


WTT 407 
WTT 408 
WTT 409 
WTT 410 
WTT 411 
WTT 412 
WTT 413 
WTT 414 
WTT 415 
WTT 416 
WTT A17 
WTT 418 
WTT 419 
WTT 420 
WTT 421 
WTT 422 
WTT 423 
WTT 424 
WTT 425 
WTT 426 
WTT 427 
WTT 428 
WTT 429 
WTT 430 
WTT 431 
WTT 432 
WTT 433 
WTT 434 
WTT 435 
WTT 436 
WTT 437 
WTT 438 
WTT 439 
WTT 440 
WTT 441 
WTT 442 
WTT 443 
WTT 444 
WTT 445 
WTT 446 
WTT 447 
WTT 448 
WTT 449 
WTT 450 
WTT 451 
WTT 452 
WTT 453 
WTT 454 
WTT 455 
WTT 456 
WTT 457 
WTT 458 
WTT 459 
WTT 460 
WTT 461 
WTT 462 
WTT 463 
WTT 464 
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ACWT-WTSKN2 

WTT 

465 



MAWTSWMSKN2 

WTl 

466 



KK=22 

WTT 

467 



KT=1 

wtt 

468 



N=i0 

WTT 

469 



IF ( ACWT »GT * 0) CALL COST 

WTT 

470 



ACWT=WTEXT 

wtt 

471 



mawtswmext 

WTT 

472 



IF (KINDP.EQ.4) KKS26 

WTT 

473 



IF (KINDP.EQ.5) KK=27 

WTT 

474 



KT=1 

WTT 

475 



IF (KINDP.EQ.4) N=37 

WTT 

476 



IF (KINDP.EQ.5) N=38 

WTT 

4-tt 



IF (ACWT.6T.0) CALL COST 

WTT 

470 



acwt=wtpanl 

WTT 

479 



MAWTSWMPaNl 

WTT 

4 AO 



IF (KINDP.EQ.l) KK=10 

wtt 

481 



IF (KINDP.EQ.2) KK=20 

WTT 

482 



IF (KINDP.EQ.3) KK=30 

WTT 

4«3 



IF CKINDP.EQ.4) KKS15 

wtt 

4A4 



IF (KINDP.EQ.5) KK=25 

WTT 

4 45 



KT=1 • • - 

"WTT 

4 86 


* 

N=24 

WT . 

uA7 



KLIC=1 

WTT 

4.48 



IF (ACWT.GT.j.) CALL COST 

WT T 

489 

c 



WTT 

490 

c 



WTT 

491 

c 


FORTRAN STATEMENT NUMBER ASSIGNMENTS POR STRUCTURE 

WTT 

49? 

c 



WTT 

493 



J=0 

wTT 

494 


210 

continue 

WTT 

495 



IF ( (KINOS.LT .1) .OR. (KINDS, GT. 3) ) GO TO 560 

WTT 

496 



GO TO <220,230,240) » KINDS 

WTT 

497 

c 



WTJ 

490 

c 

*** 

TYPE A CONSTRUCTION FOR STRUCTURE 

WTT 

499 

c 



WTT 

500 


220 

continue 

WTT 

501 



JSJ+X 

wTT 

502 



60 TO ( 250 ,260, 290, 320 » 330, 340, 350, 360, 430, 440, 450. 5lO,52C. 5^0) * 

JW^T 

503 

c 



WTT 

504 

c 

*** 

TYPE B CONSTRUCTION FOR STRUCTURE 

WTT 

505 

c 



WTT 

506 


230 

CONTINUE 

WTT 

507 




WTT 

500 



GO TO (370.3^0,460,530,550), J 

wtt 

509 

c 



WTT 

510 

c 



WTT 

511 

c 

*** 

TYPE C CONSTRUCTION FOR STRUCTURE 

WTT 

512 

c 



WTT 

513 


240 

continue 

WTT 

514 




WTT 

515 



GO TO (270,280. 300»3l0»380,400, 410. 420. 470, 480, 490, 500,540. 550) . 

JWTT 

516 

c 

*♦* 


WTT 

517 

c 

*** 

EQUATIONS FOR STRUCTURE 

WTT 

510 

c 

*** 


WTT 

519 

c 



WTT 

520 

c 

*** 

EQUATION FOR BEAM LN A (LONG BEAM A) 

WTT 

521 

c 



WTT 

522 
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250 CONTINUE WTT 523 

WTBMLA=(L8MLm*WBMLA-PI4*( <2 . *NXA+1 . ) *01 ABHl**2+2 .*Ql APH2**2 ) > *TBMLWTT 524 


1A*P8M+WT6RZ2 

*M6MLA=<LBMLA+J., ) *<W8MlA+1. ) * < TBMLA+ . 005) *PBM 
GO TO 210 


*** EQUATION POP BEAM DOUB (BEAM OOURLER) 

260 CONTINUE 

WTD0U«=(LD0UbR*WD0UBR-PI4*DIABHl**2)*TD0UBC*PBM+WTBPZ3 
•»MD0U8= ( uD0UrjR+ 1 . ) * ( WD0UBR+ l . ) * < T00UBC + «U05) *PBM 
GO TO 210 

*** EQUATION FOR BEAM UN C (LONG BEAM C) 

270 CONTINUE 

wTBMCC=LBMLC*WbMLC*TBMLC*P8M 

wM0MLC=(eBmLC+ 1. )*(W8MLC+1. >*<TBMLC+.005)*PBM 
GO TO 21 u 

*** EQUATION fOR RIB LN C (LONG Rif? C) 

260 CONTINUE 

wTLRlB=LRIbt*W«IaL*TRIBL*P0M+WTBR12 
wMLRlB=(LRlBL+l . >*(WRIBL+1. ) * < TR IBL+ . 005) +PBM 
GO TO 210 

*** EQUATION FOR BEAM SH A (SHORT BEAM A) 

290 CONTINUE 

WT8MbA=tLRMSA*wBMSA-Pl4*2.*NYA*0lA8Hl**2)*TBMSA*PBM+*TBRZ4 

WMBMSAr ( lBMS^+ 1 . ) * ( WdMSA+1 . ) * ( T0MSA+ .005) *PBM 
GO TO 2 1 J 

*** EQUATION FOR BEAM SH C (SHORT BEAM C> 

300 CONTINUE 

tfTBMSC=L0MSC»WuMSC*TBMSC*PBM 

WM8MSC = ( CBMSC+I • ) * ( WdMSC+1 . ) * ( TBMSC+ . 005) *PBM 
GO Tv 210 

*** EQUATION FOR RIB SH C (SHORT RIB C) 

310 CONTINUE 

taTSRIB=LRl8S*WRlUS*TRI8S*PBM+WT0R13 
wMSRI8=(LRlBb+l . ) *(WRI8S+1 . )*(TRIhS+.005)*PBM 
GO TO 210 

*** EQUATION FOR CORNERS 
320 CONTINUE 

WTC0KN=4 . * (L^0RN*WC0RN-R**2-S**2 ) *TC0RN*PBM+WTBRZ5 
WMCQRN=4.*<L0.0rN+ 1. )*(WC0«N+1. ) * l TC0RN+ .005 ) *PB W 
GO TO 210 

*** EQUATION FOR CORN PLT (UPPER CORNER PLATE) 

330 CONTINUE 


WTT 525 
WTT 526 
WTT 527 
WTT 528 
WTT 529 
WTT 530 
WTT 531 
WTT 532 
WTT 533 
WTT 534 
WTT 535 
WTT 536 
WTT 537 
WTT 538 
WTT 539 
WTT 540 
WTT 541 
WTT 542 
WTT 543 
WTT 544 
WTT 545 
WTT 546 
WTT 547 
WTT 548 
WTT 549 
WTT 550 
WTT 551 
WTT 552 
WTT 553 
WTT 554 
WTT 555 
WTT 556 
WTT 557 
WTT 558 
WTT 559 
WTT 560 
WTT 561 
WTT 562 
WTT 563 
WTT 564 
WTT 565 
WTT 566 
WTT 567 
WTT 568 
WTT 569 
WTT 570 
WTT 571 
WTT 572 
WTT 573 
WTT 574 
WTT 575 
WTT 576 
WTT 577 
WTT 578 
WTT 579 
WTT 580 


1-164 



non non non non non non non non 


WTPLTl=(WPLATE**2+4.*WPLATE*HPLATE-Pl4*DIAPTH**?)*T D L*Tr*pMv 
WMPLT1= ( HfPi.ATE+2 . *HPLATE+ . 5 ) **2* ( TPL ATE+ . 005 ) *PBM 
GO TO 210 

*** EQUATION FOR CORN PLT (LOWER CORNER PLATE) 

340 CONTINUE 

WTPLT2=<WPLATE**2+4.*WPLATE*HPLATE-PI4*DIAPGH**2)*TPlATE*PBm 

WMPLT2=<WPLATE+2.*HPLATE+.5)**2*(TPLATE+.G05)*PB* 

GO TO 210 

*** EQUATION FOR CORN 00U (CORNER DOUBLER) 

350 CONTINUE 

WTD0U=(WD0UBP**2-PI4*DIAPGH**2)*TD0udP*PBM 
WMD0U= ( WD0U8P+ . 5 ) **2* ( TD0UBP+ . 00 5 ) *PBM 
GO TO 210 

**» EQUATION FOR INSERTS (HONEYCOMB INSERTS A) 

360 CONTINUE 

IF (KINDP.NE.2) GO TO 210 
WTHJNA=NXA*GINSRT/10U. 

wmhina=i,i***thina 

GO TO 210 

**♦ EQUATION FOR INSERTS (HONEYCOMB INSERTS 9) 

370 CONTINUE 

IF (KINDP.NE.2) GO TO 210 
WTHINB=4.*GINSRT/100. 

WMHINB=1.1*WTHINB 
GO TO 210 

*** EQUATION FOR INSERTS (HONEYCOMB INSERTS C) 

380 CONTINUE 

IF (KINDP.NE.2) GO TO 210 
WTHINC=GINSRT/100. 

WMHINC=l.l*wrHINC 
GO TO 210 

*** EQUATION FOR INSULATOR 

390 CONTINUE 

WTINS=20.*GINSUL/100. 

WMINS=1.1*WTINS 
GO TO 210 

*** EQUATION FOR POST CENT (CENTER POST C) 

400 CONTINUE 

WTPOSR=PI*ODPOSR*LTU8ER*TTUBE*PPOST 

WMPOSRsP I *ODPOSR* ( LTUBER+ . 5 ) * ( TTUBE+ . 02 ) *PPOST 

GO TO 210 

*** EQUATION FOR FLANGE (CENTER POST C) 


wTT 

581 

WTT 

582 

T 

583 

WTT 

584 

WTT 

585 

WTT 

586 

WTT 

587 

WTT 

588 

WTT 

589 

WTT 

590 

WTT 

591 

WTT 

5Q2 

WT ‘ 

593 

WTT 

594 

WTT 

595 

WTT 

8Q6 

WTT 

597 

WTT 

598 

WTT 

599 

WT ! 

609 

wt r 

601 

WT T 

602 

wTT 

603 

WTT 

604 

WTT 

605 

WTT 

606 

WTT 

607 

WTT 

608 

WTT 

609 

wT T 

610 

WTT 

611 

WTT 

612 

WTT 

613 

WTT 

614 

WTT 

615 

WTT 

616 

WTT 

617 

WTT 

618 

WTT 

619 

WTT 

620 

WTT 

621 

WTT 

622 

WTT 

623 

WTT 

624 

WTT 

625 

WTT 

626 

WTT 

627 

WTT 

628 

WTT 

629 

WTT 

630 

WTT 

631 

WTT 

632 

WTT 

633 

WTT 

634 

WTT 

635 

WTT 

636 

WTT 

637 

WTT 

638 
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410 CONTINUE WTT 639 

WTFNG2=Pl4*( IDFNG2**2-0DP0SR**2)*HFNG2*PTU3E+PI4*(0PFMG2**2-I0FN62WTT 640 
1**2)*TFNG2*PTUBE + V»TBR15 WTT 641 

WMFNG2-P14* ( QDFNG2+ • 02 ) **2* ( HFNG2+ • 5 ) *PTUP£ WTT 642 

GO TO 210 WTT 643 

WTT 644 

*** EQUATION FOR RING (CENTER POST C> WTT 645 

WTT 646 

420 CONTINUE WTT 647 

WTRNG2=PI4*(CDP0SR-2.*TTUBE)**2*HRING*PP0ST-PI4*( IDPING**2*(HRING-.WTT 648 


1TRING2) ♦OIARoH**2*TRING2) *PP0ST+WT6R14 
wNRnG2=PI4#0L)P0SR**2*(HRING+.25) *PPOST 
GO TO 210 

*** EQUATION FOR POST CORN (CORNER POST A) 

430 CONTINUE 

WTP0SA=2.*PI4*(0DP0ST**2-00TUBE**2>*LP0ST*PP0ST 
WMP0SA=2.*PI4*( (ODPOST+.02) **2-0DTUBE**2) * (LP0ST+.5>*PP0ST 
GO TO 210 

*** EQUATION FOR PLUG (CORNER POST A) 

440 CONTINUE 

WTPLGA=2.*PlH*(OOPOST**2-OIAPGH**2)*TPLUG*PPOST+WTaRZ6 
kvMPug A=2 , *P 1 4* ( OOPOST+ . 02 ) **2* ( TPLUG+ .25) *PP0ST 
GO TO 210 

*** EQUATION FOR F L ANGE (CORNER POST A) 


WTT 649 
WTT 650 
WTT 651 
WTT 652 
WTT 653 
WTT 654 
WTT 655 
WTT 656 
WTT 657 
WTT 658 
WTT 659 
WTT 660 
WTT 661 
WTT 662 
WTT 663 
WTT 664 
WTT 665 
WTT 666 
WTT 667 
WTT 668 

450 CONTINUE WTT 669 

WTFNGA=2 . *PI *ODTUBE*TTUBE*LTUBE*PTUBE+2 ,*PI4* ( OOFNgI ** 2-0DTURE**2 ) WTT 670 
l*TFNGl*PTUbt+WTBRZ7 WTT 671 

wMFNGA=2.*Pl4*(ODFNGl+.02>**2*(LTUBE+.5>*PTUBE WTT 672 

GO TO 210 WTT 673 

WTT 674 

*** EQUATION FOR POST CORN (CORNER POST B) WTT 675 

WTT 676 

460 CONTINUE WTT 677 

WTP0S6=4 . * ( « J . *WPOST+2 . *LPOST ) *HP0ST+4 . * (LSTFNR-WSTFNP ) *wSTpNR-3.*WTT 678 

IP I4*DI APOH**«£ ) *TPOST*PPOST + WTBRH WTT 679 

WMPOSB=(2.»CPOST+3.*WPOST+1.)*(HPOST+1.)*(TPOST+.005)*PPOST WTT 680 

GO TO 210 WTT 681 

WTT 682 

*** EQUATION FOR POST CORN (CORNER POST C) WTT 683 

WTT 684 

470 CONTINUE WTT 685 

WTPOSC=Pl*ODPOST*LPOST*TPOST*PPOST WTT 686 

WMPOSC=PI*ODPOST*(LPOST*.5)*(TPOST+.02)*PPOST WTT 687 

GO TO 210 . WTT 688 

C WTT 689 

C *** EQUATION FOR RING (CORNER POST C> WTT 690 

C WTT 691 

480 CONTINUE WTT 692 

WTRNG1=PI4*(OPRING**2-OOPOST**2)*TRING1*PPOST+WTBR16 WTT 693 

WMRNG1=PI4*(UDRING+.02)**2*(TRING1+.25)*PP0ST WTT 694 

GO TO 210 WTT 695 

C WTT 696 
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C *** EQUATION FOR FLANGE (CORNER POST C) WTT 697 

C WTT 698 

990 CONTINUE WTT 699 

WTFNGC=PI4*(0DFNG1**2-0DP0ST**2)*TFNG1*PTUBE+PI4*( I0f?JG1**2-0DP0STWTT 700 

WTT 701 
WTT 702 
WTT 703 
WTT 704 
WTT 705 
WTT 706 
WTT 707 
WTT 708 
WTT 709 
WTT 710 
WTT 711 
WTT 712 
WTT 713 
WTT 714 
WTT 715 
WTT 716 
WTT 717 
WTT 718 
WTT 719 
WTT 720 
WTT 721 


C 

C 

C 


C 

C 

C 


C 

C 

C 


C 

C 

C 


C 

C 

c 


1**2) * (HFNG1-TFNG1 ) *PTU8E+WT8R17 
WMFNGC=PI4*(ODFNG1+.02)**2*(HFNG1+.5>*PTURE 
GO TO 210 

*** EQUATION FOR PLUG (CORNER POST C) 

500 CONTINUE 

WTPLGCsPI 4* ( 0DP0ST**2-0I APGH**2 ) *TPLUG*PP0ST+WTPRZ6 
WMPLGC=P 14* ( ODPOST+ . 02 ) **2* ( TPLUG+ . 25 ) *PPOST 
GO TO 210 

*** EQUATION FOR SEAL 
510 CONTINUE 

WTSEAL= ( lSEAL* ( WSEAL+.03) -PI4*NYA*DI ABH1**2 ) *TSEAL*PSEAL 
WMSEAL= ( LSEAL+1 . ) * ( WSEAL+. 5 > * ( TSEAL+ . 0 05) *PSEAL 
GO TO 210 

*** EQUATION FOR FaSTNERS (FASTENERS A) 

520 CONTINUE 


C 

C 

c 


WTFASA=(NXA+NYA+2. ) *GBOLT/100.+(NXA+2, ) *GW ASH/100 .♦ (NXA+NYA ) *6NUTPWTT 722 
1L/100. 

wMFASAsl . 1 * WTFASA 
ZFAs=NXA+NYA+2. 

GO TO 210 


WTT 723 
WTT 724 
WTT 725 
WTT 726 
WTT 727 
WTT 728 
WTT 729 
WTT 730 
WTT 731 
WTT 732 
WTT 733 
WTT 734 
WTT 735 
WTT 736 
WTT 737 
WTT 738 
WTT 739 
WTT 740 
WTT 741 
WTT 742 
WTT 743 
WTT 744 
WTT 745 

550 CONTINUE WTT 746 

WTSTR=WTBMLA+WTBMLC+WT8MSA'fWTBMSC+WTC0RN+WTD0U+WTD0UB+WTFNGA+WTFNGWTT 747 
1C+WTFNG2+WTFASA+WTFASB+WTFASC+WTHINA+WTHINB+WTHINC+WTINS4.WTPLGA+WTWTT 748 
2PLGC+WTPLT1+WTPLT2+WTP0SR+WTP0SA+WTP0SB+WTP0SC+WTSEAL+WTRNG1+WTRNGWTT 749 
32+WTLRIB+WTSRlB NTT 750 

WMSTRsWMBMlA+WMBMLC+WMBMSA+wmBMSC+WMCORN+WMOOU+WMDOUB+WMFNGA+WMFNGWTT 751 
1C+WMFNG2+WMFASA+WMFASB+WMFASC+WMHINA+WMHINB+WMHINC+WMINS4-WMPLGA+WMWTT 752 
2PLGC+WMPLT1+WMPLT2+WMPOSR+WMPOSA+WMPOS84-WMPOSC+WMSEAL+WMRNG1+WNRNGWTT 753 
32+WMLRIB-fWMSRlB WTT 754 


*** EQUATION FOR FASTENERS (FASTENERS B) 

530 CONTINUE 

WTFASB=8.*GBOLT/100.+4.*GWASH/100,+8.*GNUTPL/100. 

WMFASB=1.1*WTFASB 

ZFASS8. 

GO TO 210 

*** EQUATION FOR FASTENERS (FASTENERS C) 

540 CONTINUE 

WTFASC=2.*GBOLT/100.+GWASH/100,+GNUTPt-/100.+GCLAMP/100, 

WMFASC=1.1*W1FASC 

ZFAS=2. 

GO TO 210 

*** EQUATION FOR TOTAL STRUCTURE 
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ACWTswTSTR 

MAWTSWMSTR 

KK = 1 
KT=l 
N=ll 
KLICSO 

IP (ACWT.GT.O.) CALL COST 

IF (ACWT.GT.O) ITLsl 

ACWTswTBMLA 

MAWTswMBMLA 

KKS51 

MSI 

NS 12 

KLICS2 

IP (ACWT.GT.O.) CALL COST 

ACDKTswTOOUtt 

(^AwT=WMOOUtt 

KK=b2 

M=1 

N=2b 

IF (ACWT.GT.O) CALL COST 

ACWTswTBMLA+wTDOUB 

MAWT=WMBMLA+wMdOUB 

KKSfe 3 
KT = 1 
H=2t> 

KLIC=1 

IF (ACWT.GT.o) CALL COST 

ACWTSWTBMLC 

mawtswmpmlc 

KKSfll 

MSI 

NS19 

KLICS2 

IF (ACWT.GT.t.) CALL COST 

ACWTxWTLKIb 

MAWTswMLKIB 

KKSB2 

KTSl 

Ns27 

IF (ACWT.GT.O) CALL COST 

acwt=wtbmlc+*tlrib 

MAWTswMBMLC4wMlRIB 

KKS91 

KTSl 

NS26 

KLICS1 

IF (ACWT.GT.O) CALL COST 

ACWTswTBMSA 

MAWTSWMBMSA 

KKS55 

KTSl 

N=13 

KLICS2 

IF (ACWT.GT.O.) CALL COST 

ACWTSWTBMSA 

MAWTSWMBMSA 

KKS66 


WTT 755 
WTT 756 
WTT 757 
WTT 758 
WTT 759 
WTT 760 
WTT 761 
WTT 762 
WTT 763 
WTT 764 
WTT 765 
WTT 766 
WTT 767 
WTT 768 
WTT 769 
WTT 770 
WTT 771 
WTT 772 
WTT 773 
WTT 774 
WTT 775 
WTT 776 
WTT 777 
WTT 778 
WTT 779 
WTT 780 
WTT 781 
WTT 782 
WTT 783 
WTT 784 
WTT 785 
WTT 786 
WTT 787 
WTT 788 
WTT 789 
WTT 790 
WTT 791 
WTT 792 
WTT 793 
WTT 794 
WTT 795 
WTT 796 
WTT 797 
WTT 798 
WTT 799 
WTT 800 
WTT 801 
WTT 802 
WTT 803 
WTT 804 
WTT 805 
WTT 806 
WTT 807 
WTT 808 
WTT 809 
WTT 810 
WTT 811 
WTT 812 
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KT=1 

N=2b 

KLICsl 

IF (ACWT.GT.U) CALL COST 

acwt=wtbmsc 

MAWTsWMBMSC 

KK=d3 

KT=t 

N=20 

KLIC=2 

IF (ACWT.GT.U.) CALL COST 

ACWTSWTSRIO 

MAWT=WMSRIB 

KK=b4 

KT=1 

N=28 

IF (ACWT.GT.O) CALL COST 
ACWTsWTBMSC+wTSRlB 

mawtswmbmsc+wmsr ie 

KK=92 

KT-1 

N=2b 

KLIC=1 

IF (ACWT.GT.U) CALL COST 

ACWTsWTCORN 

MAWT=WMCORN 

KKS60 

KT=4 

N=l4 

KLIC=2 

IF (ACWT.GT.U.) CALL COST 

ACWT=WTPLT1 

MAWT=WMPlT1 

KK=bi 

KT=1 

N=29 

IF (ACWT.GT.U) CALL COST 

ACWT5WTPLT2 

MAWT=WMPlT2 

KK=62 

KT=1 

N=29 

IF (ACWT.GT.U) CALL COST 

ACWT=WTDOU 

MAWT=WMOOU 

KK=63 

KT=1 

N=30 

IF (ACWT . GT.U) CALL COST 

ACWT=WTC0RN+WTPLT1+WTPLT2+WTD0U 

MAWT=WMC0RN+WMPLT1+WMPLT2+WM00U 

KK=6b 

KT=1 

N=31 

KLICsl 

IF (ACWT.GT.U) CALL COST 
ACWT=WTHINA 

mawt=wmhina 


WTT 813 
WTT 814 
WTT 815 
WTT 816 
WTT 817 
WTT 818 
WTT 819 
WTT 820 
WTT 821 
WTT 822 
WTT 823 
WTT 824 
WTT 825 
WTT 826 
WTT 827 
WTT 828 
WTT 829 
WTT 830 
WTT 831 
WTT 832 
WTT 833 
WTT 834 
WTT 835 
WTT 836 
WTT 837 
WTT 838 
WTT 839 
WTT 840 
WTT 841 
WTT 842 
WTT 843 
WTT 844 
WTT 845 
WTT 846 
WTT 847 
WTT 848 
WTT 849 
WTT 850 
WTT 851 
WTT 852 
WTT 853 
WTT 854 
WTT 855 
WTT 856 
WTT 857 
WTT 858 
WTT 859 
WTT 860 
WTT 861 
WTT 862 
WTT 863 
WTT 864 
WTT 865 
WTT 866 
WTT 867 
WTT 868 
WTT 869 
WTT 870 
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K K=Z(s 

KT=NXA 

N=i5 

IF ( ACWT .GT • 0. ) CALL COST 

ACWT=WTHINd 

MAWTsWMHINd 

KK=2d 

M=4 

IM=15 

KLICS2 

IF (ACWT.GT.U.) CALL COST 
ACWTSWTHINC 

mawt=wmhinc 

KK=2b 

KT=1 

N=15 

IF (ACWT.GT.U.) CALL COST 

ACWTSWTINS 

MAWT=WMINS 

KK=79 

KT=20 

N=l6 

IF ( ACWT . GT » U . > CALL COST 

AC«rT=WTPOSR 

MAWT=WMPOSR 

KT=1 

N=21 

IF (ACWT.GT.U.) CALL COST 

ACWTSWTRNG2 

MAWTSWMRNG2 

KK=86 

KT=1 

N=32 

IF (ACWT.GT.U) CALL COST 

ACWT=WTFNG2 

MAWT=WMFNG2 

KK=db 

KT=1 

N=33 

IF (ACWT.GT.U) CALL COST 

ACWT=WTPOSR+wTRNG2+WTFNG2 

MAWT=WMP0SR+wMRNG2+WMFNG2 

KK=93 

KT=1 

N=34 

KLIC=1 

IF (ACWT.GT.U) CALL COST 

ACWT=WTP0SA 

MAWTSWMPOSA 

*K=5b 

KT=2 

N=lb 

KLICS2 

IF (ACWT.GT.U.) CALL COST 

ACWTSWTPLGA 

MAWTSWMPLGA 

KK=57 


WTT 871 
WTT 872 
WTT 873 
WTT 874 
WTT 875 
WTT 876 
WTT 877 
WTT 878 
WTT 879 
WTT 880 
WTT 881 
WTT 882 
WTT 883 
WTT 884 
WTT 885 
WTT 886 
WTT 887 
WTT 888 
WTT 889 
WTT 890 
WTT 691 
WTT 892 
WTT 893 
WTT 894 
WTT 895 
WTT 896 
WTT 897 
WTT 898 
WTT 899 
WTT 900 
WTT 901 
WTT 902 
WTT 003 
WTT 904 
WTT 905 
WTT 906 
WTT 907 
WTT 908 
WTT 909 
WTT 910 
WTT 911 
WTT 912 
WTT 913 
WTT 914 
WTT 915 
WTT 916 
WTT 917 
WTT 918 
WTT 919 
WTT 920 
WTT 921 
WTT 922 
WTT 923 
WTT 924 
WTT 925 
WTT 926 
WTT 927 
WTT 928 
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KT =2 

N=35 

IF (ACWT.GT.O) CALL COST 

ACWT=WTFNGA 

MAWTSWMFNGA 

KK-56 

KT=2 

N=33 

IF (ACWT.GT.O) CALL COST 

ACWT=WTPOSA+WTPLGA+WTFNGA 

MAWTsWMPOSA+WMPLGA+WMFNGA 

KK=67 

KT=2 

N=34 

KLIC =1 

IF (ACWT.GT.u) CALL COST 

ACWT=WTPOSB 

MAWT=WMPOSB 

KK=7b 

KT=4 

N=16 

KLIC=2 

IF (ACWT.GT.O.) CALL COST 

ACWT=WTPOSB 

MAWT=WMPOSB 

KK=7t> 

KT =1 

N=34 

KL1C=1 

IF (ACWT.GT.O) CALL COST 

ACWT=WTPOSC 

M AWT— WMPOSC 

KK=9b 

KT =1 

Nrl6 

KLIC=2 

IF (ACWT.GT.U.) CALL COST 
ACWT=WTRNG1 

ma«t=wmrngi 

KK=9o 

KT=1 

N=32 

IF (ACWT.GT.O) CALL COST 
ACWT=WTFNGC 

mawt=wmfngc 

KK=9fa 

KT =1 

N=33 

IF., (ACWT.GT.U) CALL COST 
ACWT=WTPuGC 

mawt=wmplgc 

KK=97 

KT=i 

N=35 

IF (ACWTiGT.u) CALL COST 
ACWT=WTPOSC+wTRNGl+WTFNGC+WTPLGC 
MAwT=WMPOSC+WMRNG1+WMFNGC+WMPLGC 
KKrg4 


WTT 929 
WTT 930 
WTT 931 
WTT 932 
WTT 933 
WTT 934 
WTT 935 
WTT 936 
WTT 937 
WTT 938 
WTT 939 
WTT 940 
WTT 941 
WTT 942 
WTT 943 
WTT 944 
WTT 945 
WTT 946 
WTT 947 
WTT 948 
WTT Q49 
WTT 950 
, - = WTT 951 

WTT 052 
WTT 953 
WTT 954 
WTT 955 
WTT 956 
WTT 957 
WTT 958 
WTT 959 
WTT 060 
WTT 961 
WTT 962 
WTT 963 
WTT 964 
WTT 965 
WTT 966 
WTT 967 
WTT 968 
WTT 969 
WTT 970 
WTT 971 
WTT 972 
WTT 973 
WTT 974 
WTT 975 
WTT 976 
WTT 977 
WTT 978 
WTT 979 
WTT 980 
WTT 981 
WTT 982 
WTT 983 
WTT 984 
WTT 985 
WTT 986 
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KT=1 

N=34 

KUIC=1 

IP (ACWT.GT.O) call cost 

ACWT=WTSEAL 

MAWT=WMS£AL 

KK=69 

* T=l 

N=17 

KHC=2 

IF (ACWT.GT.O.) CALL COST 

ACWT=WTSTR 

MAWT=WMSTR 

IF (KINDS. EG. 1) KKS50 

IF (KINDS. EG. 2) KK=70 

IF (KINDS. EG. 3) KKrftO 

KT=1 

N=36 

KL1C=1 

IF (ACWT.GT.^) CALL COST 
IF (KINDP.EG.O) GO TO 560 

acwt=wtfasa 

MAWT=WMFASA 

KK=9 


KT=NxA+NYA+2. 

N=22 

KLIC-0 

IF (ACWT.GT.O.) CALL COST 

ACWT=WTFASti 

MAWT = WMFASli 

KK=9 

KT=8 

1-4=22 

IF (ACWT.GT.O.) CALL COST 

ACWT=WTFASC 

MAWT=WMFASC 


KK=9 

KT=2 

N=22 

IF (ACWT.GT.O.) CALL COST 
560 KLIC=10 

IF (KINDP.EG.O) KLIC=100 
IF (KINDS. £0.0) KLIC=100 
KK=199 
KT=1 

IF (ITL.EQ.O) RETURN 

CALL COST 

RETURN 

END 


WTT 987 
WTT 988 
WTT 989 
WTT 990 
WTT 991 
WTT 992 
WTT 993 
WTT 994 
WTT 995 
WTT 996 
WTT 997 
WTT 998 
WTT 999 
WTTIQOO 
WTT1001 
WTT 1002 
WTT1003 
WTT1004 
WTT1005 
WTT1006 
WTT1007 
WTT1008 
WTT1009 
WTT1010 
WTT1011 
WTT1012 
WTT1013 
WTT1014 
WTT 1015 
WTT 1016 
WTT 1017 
WTT 10 18 
WTT1019 
WTT1020 
WTT 1021 
WTT1022 
WTT1023 
WTT1024 
WTT1025 
WTT1026 
WTT1027 
WTT 1028 
WTT1029 
WTT1030 
WTtl031 
WTT1032 
WTT1033 
WTT1034 
WTT1035- 
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APPENDIX H 


SUBROUTINE DESCRIPTIONS 


1. PROGRAM 5490B is the driver which executes various links or overlays of the 
computer program. These segments include (1) input, 2 two-dimensional explicit 
heat transfer and discrete element stress analysis, (2) additional input and one- 
dimensional, implicit ablator or RSI heat transfer analysis, (3) finite element stress 
analysis for the RSI configuration, (4) the sonic fatigue and panel flutter analysis, and 
(5) the weight/ cost analysis. These links also handle various portions of their own 
selected outputs. 

2. FUNCTION TRIPLATE is a specialized linear interpolation routine for a triply 
subscripted variable used for determining material properties in the stress analysis. 

3. FUNCTION TABLE is a linear interpolation subroutine used for a number of 
table look-ups throughout the program. 

4. SUBROUTINE TPSOPT is a driver subroutine which calls the program input 
routine, increments time in the trajectory, calls for atmospheric conditions, heating 
rates, temperature computations, the stress analysis, the sonic fatigue analysis, and 
the determination of weights and costs. The PINTI subroutine is also called from 
this driver. 

5. SUBROUTINE AIR computes the real gas equilibrium thermodynamic properties 
of air (co mpressibility factor, density, temperature, speed of sound, and enthalpy 

or entropy) in terms of pressure and/or entropy and/or enthalpy (use only two of these 
three). 

6. SUBROUTINE BUCKNG iteratively solves for the plasticity correction factor of 

the thermal stress analysis. In the expression solved, the stress is related to the 
tangent modulus and modulus of elasticity (the ratio being the plasticity correction 
factor) in terms of the applied and critical stresses and the Ramberg-Osgood shape 
parameter. . ... 

7. SUBROUTINE FLOWF solves for the flOwfield properties for the six different 
geometric configurations available, (e.g. , cone, wedge, sphere, cylinder, etc.). 

The procedure also calls subroutines SHOCK, AIR, and FMUT to solve the governing 
equations of energy, momentum, and state across the shock wave, to determine the 
equilibrium thermodynamic properties of air, and to calculate real gas viscosity. 
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8. FUNCTION FMUT specifies real gas, equilibrium viscosity of air in terms of 
pressure and temperature. 

9. SUBROUTINE MSMIN compares two numbers and determines the smaller. 

10. SUBROUTINE OFFCL computes off centerline heating peripherally around the 
body as a ratio to bottom centerline values. 

11. SUBROUTINE PANEL computes geometric properties of the discrete elements 
for the thermal stress analysis from the general panel dimensions which have been 
input to the program. 

12. SUBROUTINE PRA63 calculates freestream atmospheric properties of temper- 
ature, pressure, and density as a function of altitude using curve fits of properties of 
the 1963 Patrick Reference Atmosphere. 

13. SUBROUTINE PRINT! is the main output subroutine which writes out aerothermo- 
dynamic characteristics of the environment such as fluidynamic properties and vehicle 
attitude as well as temperature and stress distributions of the panel cross-section. 

14. SUBROUTINE SHOCK determines flowfield properties down stream of a shock 
wave of a .given angle by simultaneously solving the energy, momentum, and state 
equations. .. . 

15. SUBROUTINE STRESS performs the discrete element thermal stress analysis on 
each of the six panel configurations depending upon which is under consideration. At 
increments in the trajectory equal to the print interval, nodal temperatures are inter- 
polated from the temperature distribution, and thermal stresses are determined along 
with design factors and creep rates. All these values are stored in array for use at 
the end of the trajectory at which time the minimum design factors are identified. If 
any are negative, the panel thickness is increased and stresses recomputed. The 
panel thickness is increased until all design factors are positive. 

1®* SUBROUTINE THERMO determines the heat transfer rates for each of the six 
different configurations (critical, cylinder, wedge, sphere), determines the state of 
the boundary layer, and corrects both heating rates and transition for cross flow. 

17. SUBROUTINE INPUT1 reads and prints out all input data except those used in the 
RSI/ ablator thermodynamic or the weight/cost analysis. Panel geometrical parameters, 
material properties, the trajectory, and radiation interchange factors as well as indices 
which specify options to be performed by the program are read and then written out for 
the program user. 
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18. SUBROUTINE INPUT2 reads in only the thermodynamic properties needed to 
perform the one-dimensional implicit heat transfer analysis for the RSI and ablator 
TPS. 

19- SUBROUTINE CONDTN performs the one-or two-dimensional, explicit heat 
transfer calculations and interpolates to obtain temperature distributions needed for 
the stress analysis for the cover panels denoted by the values of NSECT equal to one 
through six. 

20. SUBROUTINE ABLATE determines the thermodynamic performance of a charring 
ablator using essentially the computer code presented in NASA TN-D 3150 by Donald 
M. Curry. Corrections are made to the applied heating rates either for hot wall 
temperature effects or the decrease in net heating due to the blowing of pyrolysis 
gases and char. 

21. SUBROUTINE COEFF calculates the coefficients of the tridiagonal matrices used 
in the implicit heat transfer calculations related to SUBROUTINE ABLATE. 

22. SUBROUTINE MDOT determines the mass flow rate of pyrolysis gases produced 
by the charring ablator. 

23. SUBROUTINE PROP calculates the physical, thermodynamic properties of the 
heat shield structures which relate to NSECT = 7 and 8, the RSI and ablative TPS's. 

24. SUBROUTINE QDOT computes the temperatures of the receding ablator at the 
material nodal points by linear interpolation. In this manner, the same number of 
nodes always describe the ablator behavior. 

25. SUBROUTINE RECESS computes the front face location and the char mass re- 
moval rate for the ablator. 

2®. SUBROUTINE SWUFT determines the forward time step temperatures by solving 
the tri-diagonal matrix of the charring ablator. 

27 . SUBROUTINE RSICMP computes the temperature distribution in the TPS panel 
using phase-change material in the backup structure. For cases when the phase-change 
material is contained in a honeycomb structure, the routine computes the equivalent 
thermodynamic properties of the phase-change material and the honeycomb. 
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APPENDIX m 


PROGRAM FLOWCHART 
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